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__