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