File Coverage

blib/lib/Archive/Cpio/File.pm
Criterion Covered Total %
statement 0 8 0.0
branch n/a
condition n/a
subroutine 0 4 0.0
pod 0 4 0.0
total 0 16 0.0


line stmt bran cond sub pod time code
1             package Archive::Cpio::File;
2              
3             sub new {
4 0     0 0   my ($class, $val) = @_;
5              
6 0           bless $val, $class;
7             }
8              
9 0     0 0   sub name { my ($o) = @_; $o->{name} }
  0            
10 0     0 0   sub size { my ($o) = @_; length($o->{data}) }
  0            
11 0     0 0   sub get_content { my ($o) = @_; $o->{data} }
  0            
12              
13             1;