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   1440 use 5.008008;
  3         8  
2 3     3   13 use strict;
  3         4  
  3         47  
3 3     3   11 use warnings;
  3         4  
  3         134  
4              
5             package portable::loader::Perl;
6              
7             our $AUTHORITY = 'cpan:TOBYINK';
8             our $VERSION = '0.003';
9              
10 3     3   13 use portable::lib;
  3         10  
  3         17  
11 3     3   15 use portable::loader;
  3         5  
  3         379  
12              
13             sub init {
14 3     3 0 6 my $me = shift;
15 3         5 my ($loader) = @_;
16 3         9 $loader->register_extension('portable.pl');
17 3         5 return;
18             }
19              
20             sub parse {
21 2     2 0 3 my $me = shift;
22 2         5 my ($filename) = @_;
23 2 50       648 my $rv = do($filename) or die "Error loading $filename";
24 2         42 return ($filename => $rv);
25             }
26              
27             1;
28