Select Code to Download

    use Shell qw(echo cat ps cp);

package Class::FlyweightWrapper;
$VERSION = 0.01;
...
}

1;

#!/usr/bin/perl

...
print (($test2->can("helloWorld")) ? "we can\n" : "we can't\n");

1;

Hello World!
we can
Can't call method "new" on an undefined value at 'Flyweight wrapper Te
+st::Public for Test::Private' line 24.