Select Code to Download

my $foo = Foo->new;

...
sub new { return bless {}, shift; }

1;

bar
Can't locate object method "bar" via package "Foo" at foo.pl line 9.