File Coverage

blib/lib/Archive/Zip/Parser/CentralDirectoryEnd.pm
Criterion Covered Total %
statement 24 24 100.0
branch n/a
condition n/a
subroutine 11 11 100.0
pod 9 9 100.0
total 44 44 100.0


line stmt bran cond sub pod time code
1             package Archive::Zip::Parser::CentralDirectoryEnd;
2              
3 2     2   10 use warnings;
  2         3  
  2         59  
4 2     2   9 use strict;
  2         3  
  2         523  
5              
6             sub get_signature {
7 1     1 1 7 my $self = shift;
8 1         16 return unpack( 'H*', pack( 'N', $self->{'_signature'} ) );
9             }
10              
11             sub get_disk_number {
12 1     1 1 7 my $self = shift;
13 1         8 return $self->{'_disk_number'};
14             }
15              
16             sub get_start_disk_number {
17 1     1 1 2 my $self = shift;
18 1         7 return $self->{'_start_disk_number'};
19             }
20              
21             sub get_total_disk_entries {
22 1     1 1 3 my $self = shift;
23 1         6 return $self->{'_total_disk_entries'};
24             }
25              
26             sub get_total_entries {
27 1     1 1 3 my $self = shift;
28 1         7 return $self->{'_total_entries'};
29             }
30              
31             sub get_size {
32 1     1 1 3 my $self = shift;
33 1         8 return $self->{'_size'};
34             }
35              
36             sub get_start_offset {
37 1     1 1 3 my $self = shift;
38 1         8 return $self->{'_start_offset'};
39             }
40              
41             sub get_zip_comment_length {
42 1     1 1 3 my $self = shift;
43 1         8 return $self->{'_zip_comment_length'};
44             }
45              
46             sub get_zip_comment {
47 1     1 1 4 my $self = shift;
48 1         8 return $self->{'_zip_comment'};
49             }
50              
51             1;
52             __END__