return 1;
}
+ sub _methods {
+ return qw(blah);
+ }
+
sub _destroy{
$destroy_hit = 1;
}
$foo->load('Foo');
# 2: test load()
-ok(exists $foo->{_subclasses}{Foo}, 'load() works');
+ok(exists $foo->{__class_modular}{_subclasses}{Foo}, 'load() works');
# 3: test AUTOLOAD
ok($foo->blah, 'AUTOLOAD works');