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

##</code><code>##

sub export_fail {
    my $self = shift;
    @_;
}
##</code><code>##

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

##</code><code>##

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

##</code><code>##

MyPackage->export_to_level(
    $where_to_export, $package, @what_to_export
);
##</code><code>##

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

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

##</code><code>##

my ($level,$pkg);
if ($_[1]=~/^[0-9]+$/) {
    # called as method
    $pkg=shift;
    $level=shift;
    (undef)=shift;
} else {
    # called as function
    $level=shift;
    $pkg=shift;
}
my $callpkg=caller($level);
$pkg->export($callpkg,@_);

##</code><code>##

my ($level,$pkg,$callpkg);
if ($_[1]=~/^[0-9]+$/) {
    # called as method
    $pkg=shift;
    $level=shift;
    (undef)=shift;
    $callpkg=caller($level);
    $pkg->export($callpkg,@_);
} else {
    # called as function
    $level=shift;
    $pkg=shift;
    $callpkg=caller($level);
    heavy_export($pkg,$callpkg,@_);
}

##</code><code>##

my ($level,$pkg);
if ($_[1]=~/^[0-9]+$/) {
    # called as method
    $pkg=shift;
    $level=shift;
    (undef)=shift;
} else {
    # called as function
    $level=shift;
    $pkg=shift;
}
my $callpkg=caller($level);
heavy_export($pkg,$callpkg,@_);

##</code><code>##

  my $pkg = shift;
  my $callpkg = caller($ExportLevel);

  # ...

  return export $pkg, $callpkg, @_
    if $Verbose or $Debug or $fail && @$fail > 1;

  # ...

  return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy;

  # ...