view release on metacpan or  search on metacpan

t/lib/aliased.pm  view on Meta::CPAN

use strict;

sub import {
    my ( $class, $package, $alias, @import ) = @_;

    if ( @_ <= 1 ) {
        $class->export_to_level(1);
        return;
    }

    my $callpack = caller(0);

    _load_alias( $package, $callpack, @import );
    _make_alias( $package, $callpack, $alias );
}

sub _get_alias {
    my $package = shift;
    $package =~ s/.*(?:::|')//;
    return $package;
}

t/lib/aliased.pm  view on Meta::CPAN

        $sigdie = $SIG{__DIE__};
    }

    # Make sure a global $SIG{__DIE__} makes it out of the localization.
    $SIG{__DIE__} = $sigdie if defined $sigdie;
}

sub alias {
    my ( $package, @import ) = @_;

    my $callpack = scalar caller(0);
    _load_alias( $package, $callpack, @import );

    return $package;
}

1;
__END__

=head1 NAME