Help for this page

Select Code to Download

Select or download this

package Foo {
    sub new { bless [] };
...

my $obj = Foo->new;
$obj->Berlin();

Select or download this

package Foo {
    sub new { bless [] };
...

my $obj = Foo->new;
$obj->Berlin();