Help for this page

Select Code to Download


  1. or download this
    package Scrap::Foo;
use strict;
...
    return $dummy;
}
1
  2. or download this
    use strict;
use Scrap::Foo;
use Data::Dumper;
my $dummy = Scrap::Foo::bar();
print Dumper $dummy;
  3. or download this
    $VAR1 = {
          '_init' => {
                       '__PACKAGE__' => '1'
                     }
        };
  4. or download this
    my $package = __PACKAGE__;
$dummy->{_init}->{$package}++;