Help for this page

Select Code to Download


  1. or download this
    package Foo;
use strict;
...
}

1;
  2. or download this
    #!/usr/bin/perl
use strict;
...

my $foo = new Foo();
print Dumper(\$foo),"\n";
  3. or download this
    package Bar;
use strict;
...
use base qw( Foo );
 
1;
  4. or download this
    #!/usr/bin/perl
use strict;
...
 
my $bar = new Bar();
print Dumper(\$bar),"\n";