view release on metacpan or  search on metacpan

lib/CGI/Wiki/Search/Base.pm  view on Meta::CPAN

package CGI::Wiki::Search::Base;

use strict;
use Carp "croak";

use vars qw( @ISA $VERSION );

sub _abstract {
    my $who = (caller(1))[3];
    croak "$who is an abstract method which the ".(ref shift).
    " class has not provided";
}

$VERSION = 0.01;

=head1 NAME

CGI::Wiki::Search::Base - Base class for CGI::Wiki search plugins.