File Coverage

blib/lib/ex/lib/zip.pm
Criterion Covered Total %
statement 13 15 86.6
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 18 20 90.0


line stmt bran cond sub pod time code
1             package ex::lib::zip;
2              
3 6     6   36353 use 5.007001;
  6         24  
  6         382  
4 6     6   35 use strict;
  6         10  
  6         208  
5 6     6   33 use warnings;
  6         14  
  6         1133  
6              
7 6     6   33 use XSLoader ();
  6         10  
  6         145  
8 6     6   8447 use PerlIO::gzip 0.07;
  0            
  0            
9             use PerlIO::subfile 0.02; # Now passing a UV arg
10              
11             our $VERSION = '0.04';
12             our @ORIG_INC = @INC; # take a handy copy of 'original' value
13              
14             XSLoader::load "ex::lib::zip", $VERSION;
15              
16             sub import {
17             my $package = shift;
18              
19             my %names;
20             foreach (reverse @_) {
21             if ($_ eq '') {
22             require Carp;
23             Carp::carp("Empty compile time value given to use lib::zip");
24             }
25             if (-e && ! -f _) {
26             require Carp;
27             Carp::carp("Parameter to use lib::zip must be file, not directory");
28             }
29             unshift(@INC, new ($package, $_));
30             }
31              
32             # Add any previous version directories we found at configure time
33             # remove trailing duplicates
34             return;
35             }
36              
37             1;
38             __END__