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   112580 use 5.008008;
  2         18  
2 2     2   9 use strict;
  2         4  
  2         43  
3 2     2   9 use warnings;
  2         3  
  2         117  
4              
5             package portable::alias;
6              
7             our $AUTHORITY = 'cpan:TOBYINK';
8             our $VERSION = '0.003';
9              
10 2     2   738 use portable::loader ();
  2         4  
  2         50  
11 2     2   14 use B ();
  2         3  
  2         248  
12              
13             sub import {
14 2     2   14 my $me = shift;
15 2         2 my $caller = caller;
16 2         5 my ($collection, $as) = @_;
17 2   33     10 $as ||= $collection;
18            
19 2         7 my $pkg = portable::loader->load($collection);
20 2         11 my $qpkg = B::perlstring($pkg);
21            
22 2         24 local $@;
23 2 50   2   185 eval qq{
  2 100   36   1670  
  1 100       16  
  36         25709  
  18         260  
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;