Select Code to Download

package SmartHash;
use strict;
...
    },
    fallback => 1;
1;

package Foo;
use strict;
...
}

1;

package Bar;
use strict;
...
}

1;

use strict;
use warnings;
...

is( $o->foo, 42, "Bar obj's foo is still Bar obj's foo" );
is( $o->Foo::foo, 23, "Bar obj's Foo's foo is still Bar obj's Foo's fo
+o" );

testfoo....1..9
ok 1 - require Bar;
...
ok
All tests successful.
Files=1, Tests=9,  0 wallclock secs ( 0.00 cusr +  0.00 csys =  0.00 C
+PU)