package LoadClass; | |
#testing PERL_METHOD_HANDLERS | |
{ | |
package BaseClass; | |
#so 5.005-tobe doesn't complain: | |
#No such package "BaseClass" in @ISA assignment at ... | |
} | |
@ISA = qw(BaseClass); | |
sub method ($$) { | |
my($class, $r) = @_; | |
#warn "$class->method called\n"; | |
0; | |
} | |
1; | |
__END__ |