Help for this page

Select Code to Download


  1. or download this
               package Baz;
           BEGIN {
...
               require Bar;
               push @ISA, qw(Foo Bar);
           }
  2. or download this
    my $object = MyClass->new;
print $object->name;
print $object->{'name'};
  3. or download this
    package MyClass;
use strict;
...
sub DESTROY {
   $MUSTHAVEONLYONEINSTANCE = 0;
}