File Coverage

blib/lib/Alias/Any.pm

Criterion	Covered	Total	%
statement	21	37	56.7
branch	2	6	33.3
condition	1	6	16.6
subroutine	6	6	100.0
pod			n/a
total	30	55	54.5

package Alias::Any;

use 5.012;
use warnings;

our $VERSION = '0.000004';

use Keyword::Declare;

sub import {
    keyword alias (Variable|VariableDeclaration $variable, '=', Expr $expr) {
        if ($^V >= 5.022) {
            qq{use feature 'refaliasing';}
          . qq{no warnings 'experimental::refaliasing';}
          . qq{\\$variable = \\$expr}
        }
        else {
            eval { require Data::Alias; 1 }
                // die "'alias' keyword requires Data::Alias module under Perl $^V\nat "
                 . join(' line ', (caller 2)[1,2]) . "\n";
            qq{Data::Alias::alias $variable = $expr}
        }
    }
}

1; # Magic true value required at end of module
__END__