Ignore:
Timestamp:
May 14, 2006, 4:54:22 PM (15 years ago)
Author:
Dominic Hargreaves
Message:

Use Wiki::Toolkit. Note that CGI::Wiki::Plugin::Diff hasn't been converted yet,
so tests will be broken for now.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/lib/OpenGuides/UK/PubCrawl.pm

    r202 r785  
    66
    77use Carp qw( croak );
    8 use CGI::Wiki::Plugin;
    9 use CGI::Wiki::Plugin::Locator::UK;
     8use Wiki::Toolkit::Plugin;
     9use Wiki::Toolkit::Plugin::Locator::UK;
    1010
    11 @ISA = qw( CGI::Wiki::Plugin );
     11@ISA = qw( Wiki::Toolkit::Plugin );
    1212
    1313=head1 NAME
     
    2424=head1 SYNOPSIS
    2525
    26   use CGI::Wiki;
    27   use CGI::Wiki::Plugin::Locator::UK;
     26  use Wiki::Toolkit;
     27  use Wiki::Toolkit::Plugin::Locator::UK;
    2828  use OpenGuides::UK::PubCrawl;
    2929
    30   my $wiki = CGI::Wiki->new( ... );
    31   my $locator = CGI::Wiki::Plugin::Locator::UK->new;
     30  my $wiki = Wiki::Toolkit->new( ... );
     31  my $locator = Wiki::Toolkit::Plugin::Locator::UK->new;
    3232  $wiki->register_plugin( plugin => $locator );
    33   my $categoriser = CGI::Wiki::Plugin::Categoriser->new;
     33  my $categoriser = Wiki::Toolkit::Plugin::Categoriser->new;
    3434  $wiki->register_plugin( plugin => $categoriser );
    3535
     
    5151  my $crawler = OpenGuides::UK::PubCrawl->new( locator => $locator );
    5252
    53 Croaks unless a C<CGI::Wiki::Plugin::Locator::UK> object and a
    54 C<CGI::Wiki::Plugin::Categoriser> object are supplied.
     53Croaks unless a C<Wiki::Toolkit::Plugin::Locator::UK> object and a
     54C<Wiki::Toolkit::Plugin::Categoriser> object are supplied.
    5555
    5656=cut
     
    6060    my $locator = $args{locator}
    6161      or croak "No locator parameter supplied";
    62     croak "Locator parameter is not a CGI::Wiki::Plugin::Locator::UK"
    63       unless UNIVERSAL::isa( $locator, "CGI::Wiki::Plugin::Locator::UK" );
     62    croak "Locator parameter is not a Wiki::Toolkit::Plugin::Locator::UK"
     63      unless UNIVERSAL::isa( $locator, "Wiki::Toolkit::Plugin::Locator::UK" );
    6464    my $categoriser = $args{categoriser}
    6565      or croak "No categoriser parameter supplied";
    66     croak "Categoriser parameter is not a CGI::Wiki::Plugin::Categoriser"
    67       unless UNIVERSAL::isa( $categoriser, "CGI::Wiki::Plugin::Categoriser" );
     66    croak "Categoriser parameter is not a Wiki::Toolkit::Plugin::Categoriser"
     67      unless UNIVERSAL::isa( $categoriser, "Wiki::Toolkit::Plugin::Categoriser" );
    6868    my $self = { _locator     => $locator,
    6969                 _categoriser => $categoriser };
Note: See TracChangeset for help on using the changeset viewer.