Help for this page

Select Code to Download


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