Select Code to Download

@failed = $pkg->export_fail(@failed);

sub export_fail {
    my $self = shift;
    @_;
}

@failed=$pkg->export_fail(@failed) if $pkg->can('export_fail');

@failed=$pkg->export_fail(@failed) if defined &{"${pkg}::export_fail"}
+;

MyPackage->export_to_level(
    $where_to_export, $package, @what_to_export
);

sub heavy_export_to_level
{
      my $pkg = shift;
...
      my $callpkg = caller($level);
      $pkg->export($callpkg, @_);
}

my $level=shift;
my $pkg=shift;
my $callpkg=caller($level);
$pkg->export($callpkg,@_);

my ($level,$pkg);
if ($_[1]=~/^[0-9]+$/) {
...
}
my $callpkg=caller($level);
$pkg->export($callpkg,@_);

my ($level,$pkg,$callpkg);
if ($_[1]=~/^[0-9]+$/) {
...
    $callpkg=caller($level);
    heavy_export($pkg,$callpkg,@_);
}

my ($level,$pkg);
if ($_[1]=~/^[0-9]+$/) {
...
}
my $callpkg=caller($level);
heavy_export($pkg,$callpkg,@_);

  my $pkg = shift;
  my $callpkg = caller($ExportLevel);
...
  return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy;

  # ...