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             $Archive::Any::Plugin::VERSION = '0.0944';
3 4     4   12 use strict;
  4         5  
  4         84  
4 4     4   10 use warnings;
  4         5  
  4         74  
5              
6 4     4   1530 use Module::Find;
  4         3331  
  4         194  
7 4     4   18 use Cwd;
  4         4  
  4         403  
8              
9             sub _extract {
10 4     4   7 my ( $self, $file, $dir ) = @_;
11              
12 4         4 my $orig_dir;
13 4 50       9 if ( defined $dir ) {
14 0         0 $orig_dir = getcwd;
15 0         0 chdir $dir;
16             }
17              
18 4         12 my $success = $self->extract( $file );
19              
20 4 50       10206 if ( defined $dir ) {
21 0         0 chdir $orig_dir;
22             }
23              
24 4         40 return 1;
25             }
26              
27             1;
28              
29             # ABSTRACT: Anatomy of an Archive::Any plugin.
30              
31             __END__