Select Code to Download

use warnings;
use strict;
...
my $g = Bar->new();
$g->foo('e');    # ("foo", undef, [bless({}, "Bar"), "e"])  - oops!
$g->bar('f');    # ("bar", bless({}, "Bar"), ["f"])