File Coverage

blib/lib/Exodist/Util/Alias.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	2	4	50.0
condition			n/a
subroutine	8	8	100.0
pod			n/a
total	34	36	94.4

package Exodist::Util::Alias;
use strict;
use warnings;

use Exporter::Declare::Magic;
use Exodist::Util::Package qw/ inject_sub /;

gen_default_export(
    qw/alias begin/,
    sub {
        my ( $exporting_class, $importing_class ) = @_;
        sub {
            for my $package (@_) {
                eval "require $package; 1" || die $@;
                my $short = $package;
                $short =~ s/.*:([^:]+)$/$1/g;
                inject_sub( $importing_class, $short, sub { $package } );
            }
        };
    }
);

gen_default_export(
    qw/alias_to begin/,
    sub {
        my ( $exporting_class, $importing_class ) = @_;
        sub {
            my %pairs = @_;
            for my $short ( keys %pairs ) {
                my $package = $pairs{$short};
                eval "require $package; 1" || die $@;
                inject_sub( $importing_class, $short, sub { $package } );
            }
            }
    }
);

1;

__END__