Help for this page

Select Code to Download


  1. or download this
    $ perl -MData::Dumper -e'
   sub Foo::Bar::baz {}
...
$VAR1 = {
          'baz' => *Foo::Bar::baz
        };
  2. or download this
    $ perl -MData::Dumper -e'
   sub Foo::Bar::baz {}
...
$VAR1 = {
          'baz' => *Foo::Bar::baz
        };
  3. or download this
    $ perl -MData::Dumper -e'
   sub Foo::Bar::baz {}
...
$VAR1 = {
          'baz' => *Foo::Bar::baz
        };
  4. or download this
    no strict 'refs'; \%{ $package . '::' };
  5. or download this
    my $r = \%::; $r = $r->{$_ . '::'} for split /::/, $package; \%$r