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;
    }