Help for this page

Select Code to Download


  1. or download this
    package My::Module;
use Exporter 'import';
use My::Module::Another;
our @EXPORT = ( qw/asub1 asub2 asub3/, @My::Module::Another::EXPORT );
  2. or download this
    package My::Module::Another;
use base 'Exporter';
our @EXPORT = qw/bsub1 bsub2 bsub3/;
  3. or download this
    package My::Module;
use base 'Exporter';
...
    __PACKAGE__->export_to_level(1, $_[0]);
    My::Module::Another->export_to_level(1, $_[0]);
}
  4. or download this
    package My::Module;
# no "use Exporter" or "use base 'Exporter'", we're on our own!
...
        }
    }
}