File Coverage

blib/lib/portable/loader/Perl.pm
Criterion Covered Total %
statement 22 22 100.0
branch 1 2 50.0
condition n/a
subroutine 7 7 100.0
pod 0 2 0.0
total 30 33 90.9


line stmt bran cond sub pod time code
1 3     3   1463 use 5.008008;
  3         9  
2 3     3   12 use strict;
  3         6  
  3         47  
3 3     3   10 use warnings;
  3         5  
  3         135  
4              
5             package portable::loader::Perl;
6              
7             our $AUTHORITY = 'cpan:TOBYINK';
8             our $VERSION = '0.002';
9              
10 3     3   14 use portable::lib;
  3         11  
  3         12  
11 3     3   25 use portable::loader;
  3         6  
  3         355  
12              
13             sub init {
14 3     3 0 4 my $me = shift;
15 3         6 my ($loader) = @_;
16 3         8 $loader->register_extension('portable.pl');
17 3         4 return;
18             }
19              
20             sub parse {
21 2     2 0 4 my $me = shift;
22 2         5 my ($filename) = @_;
23 2 50       698 my $rv = do($filename) or die "Error loading $filename";
24 2         45 return ($filename => $rv);
25             }
26              
27             1;
28