File Coverage

blib/lib/Archive/Zip/Parser/Entry.pm

Criterion	Covered	Total	%
statement	24	25	96.0
branch	1	2	50.0
condition			n/a
subroutine	9	9	100.0
pod	4	4	100.0
total	38	40	95.0

package Archive::Zip::Parser::Entry;

use warnings;
use strict;

use Archive::Zip::Parser::Entry::LocalFileHeader;
use Archive::Zip::Parser::Entry::CentralDirectory;
use Archive::Zip::Parser::Entry::DataDescriptor;

sub get_local_file_header {
    my $self = shift;
    return bless $self->{'_local_file_header'},
      'Archive::Zip::Parser::Entry::LocalFileHeader';
}

sub get_central_directory {
    my $self = shift;
    return bless $self->{'_central_directory'},
      'Archive::Zip::Parser::Entry::CentralDirectory';
}

sub get_data_descriptor {
    my $self = shift;

    if ( defined $self->{'_data_descriptor'} ) {
        return bless $self->{'_data_descriptor'},
          'Archive::Zip::Parser::Entry::DataDescriptor';
    }
    return;
}

sub get_file_data {
    my $self = shift;
    return $self->{'_file_data'};
}

1;
__END__