Class::Virtual - Base class for virtual base classes.
package My::Virtual::Idaho; use base qw(Class::Virtual);
__PACKAGE__->virtual_methods(new foo bar this that);
package My::Private::Idaho; use base qw(My::Virtual::Idaho);
# Check to make sure My::Private::Idaho implemented everything
my @missing = __PACKAGE__->missing_methods;
die __PACKAGE__ . ' forgot to implement ' . join ', ', @missing
if @missing;
# If My::Private::Idaho forgot to implement new(), the program will # halt and yell about that. my $idaho = My::Private::Idaho->new;
# See what methods we're obligated to implement. my @must_implement = __PACKAGE__->virtual_methods;
This is a base class for implementing virtual base classes. Kinda kooky. It allows you to explicitly declare what methods are virtual and that must be implemented by subclasses. This might seem silly, since your program will halt and catch fire when an unimplemented virtual method is hit anyway, but there's some benefits.
The error message is more informative. Instead of the usual ``Can't locate object method'' error, you'll get one explaining that a virtual method was left unimplemented.
Subclass authors can explicitly check to make sure they've implemented all the necessary virtual methods. When used as part of a regression test, it will shield against the virtual method requirements changing out from under the subclass.
Finally, subclass authors can get an explicit list of everything they're expected to implement.
Doesn't hurt and it doesn't slow you down.
Virtual::Class->virtual_methods(@virtual_methods); my @must_implement = Sub::Class->virtual_methods;
This is an accessor to the list of virtual_methods. Virtual base classes will declare their list of virtual methods. Subclasses will look at them. Once the virtual methods are set they cannot be undone.
XXX I'm tempted to make it possible for the subclass to override the XXX virtual methods, perhaps add to them. Too hairy to think about for XXX 0.01.
my @missing_methods = Sub::Class->missing_methods;
Returns a list of methods Sub::Class has not yet implemented.
Michael G Schwern <schwern@pobox.com>