File Coverage

blib/lib/name.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	4	4	100.0
condition			n/a
subroutine	10	10	100.0
pod			n/a
total	42	42	100.0

package name;

use 5.008;
use strict;
use warnings;

use Carp 'croak';
use Sub::Util qw(set_prototype set_subname);

our $VERSION = 'v0.0.1';

sub import {
    my $me = shift;
    my $name = shift or croak "$me: no name given";
    my %args = @_;
    my $alias  = $args{alias}
        or croak "$me: An 'alias' is required with 'use name'";
    my $caller = caller;

    no strict 'refs';
    no warnings 'redefine';

    *{"${caller}::$name"} =
        set_subname "${caller}::$name",
        set_prototype '',
            sub {
                return $alias;
            };
}

1; # End of name

__END__