Help for this page

Select Code to Download


  1. or download this
      {
    package Foo::foo_bar;
...

  use Foo;
  print $foo_bar::bar; # 'BAR'!
  2. or download this
        sub import {
        my $caller = caller() . '::';

...
        *{"$caller$_"} = *{__PACKAGE__ . "::$_"}
            for grep !/::$/ && /$exported/, keys %{__PACKAGE__ . '::'}
+;
    }
  3. or download this
      use Exporter::Pattern qr/PATTERN/;