Help for this page

Select Code to Download

Select or download this
bless $self, $class;

Select or download this

sub foo {
    my $self = {};
    bless $self, 'Bar';
...
}

print "isa Bar.\n" if foo()->isa('Bar');