view release on metacpan or  search on metacpan

lib/Acme/Test/Weather.pm  view on Meta::CPAN

    $test->plan(@plan);

    __PACKAGE__->_export_to_level(1, __PACKAGE__, @imports);
}

sub _export_to_level
{
      my $pkg = shift;
      my $level = shift;
      (undef) = shift;                  # redundant arg
      my $callpkg = caller($level);
      $pkg->export($callpkg, @_);
}

=head1 VERSION

0.2

=head1 DATE

$Date: 2003/02/21 19:25:34 $