package Hoppy::Hook::Base; use strict; use warnings; use base qw(Hoppy::Base); __PACKAGE__->mk_virtual_methods($_) for qw( work ); 1; __END__ =head1 NAME Hoppy::Hook::Base - Base class of Hoppy::Hook. =head1 SYNOPSIS package My::Hook::Class; use base qw(Hoppy::Hook::Base); =head1 DESCRIPTION Base class of Hoppy::Hook. Derived classes of Hoppy::Hook::Base must implement work() method. =head1 METHODS =head1 AUTHOR Takeshi Miki Emiki@cpan.orgE =head1 LICENSE This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =head1 SEE ALSO =cut