File Coverage

blib/lib/Archive/Any/Plugin.pm
Criterion Covered Total %
statement 18 21 85.7
branch 2 4 50.0
condition n/a
subroutine 5 5 100.0
pod n/a
total 25 30 83.3


line stmt bran cond sub pod time code
1             package Archive::Any::Plugin;
2             our $VERSION = '0.0946';
3 4     4   26 use strict;
  4         8  
  4         111  
4 4     4   18 use warnings;
  4         8  
  4         94  
5              
6 4     4   1776 use Module::Find;
  4         5258  
  4         253  
7 4     4   28 use Cwd;
  4         8  
  4         524  
8              
9             sub _extract {
10 4     4   15 my ( $self, $file, $dir ) = @_;
11              
12 4         8 my $orig_dir;
13 4 50       12 if ( defined $dir ) {
14 0         0 $orig_dir = getcwd;
15 0         0 chdir $dir;
16             }
17              
18 4         19 $self->extract($file);
19              
20 4 50       16903 if ( defined $dir ) {
21 0         0 chdir $orig_dir;
22             }
23              
24 4         114 return 1;
25             }
26              
27             1;
28              
29             # ABSTRACT: Anatomy of an Archive::Any plugin.
30              
31             __END__