File Coverage

blib/lib/portable/alias.pm
Criterion Covered Total %
statement 26 26 100.0
branch 5 6 83.3
condition 1 3 33.3
subroutine 8 8 100.0
pod n/a
total 40 43 93.0


line stmt bran cond sub pod time code
1 2     2   129492 use 5.008008;
  2         23  
2 2     2   9 use strict;
  2         2  
  2         47  
3 2     2   9 use warnings;
  2         2  
  2         106  
4              
5             package portable::alias;
6              
7             our $AUTHORITY = 'cpan:TOBYINK';
8             our $VERSION = '0.002';
9              
10 2     2   716 use portable::loader ();
  2         4  
  2         47  
11 2     2   11 use B ();
  2         3  
  2         253  
12              
13             sub import {
14 2     2   14 my $me = shift;
15 2         4 my $caller = caller;
16 2         6 my ($collection, $as) = @_;
17 2   33     10 $as ||= $collection;
18            
19 2         6 my $pkg = portable::loader->load($collection);
20 2         12 my $qpkg = B::perlstring($pkg);
21            
22 2         5 local $@;
23 2 50   2   232 eval qq{
  2 100   34   1720  
  1 100       16  
  34         24960  
  18         254  
24             sub $caller\::$as {
25             return $qpkg unless \@_;
26             $qpkg\->type_library->get_type(\@_);
27             }
28             1;
29             } or die "Eww: $@";
30             }
31              
32              
33             1;