File Coverage

blib/lib/MIME/Expander/Plugin/ApplicationGzip.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	3	6	50.0
condition	1	2	50.0
subroutine	6	6	100.0
pod	0	1	0.0
total	36	41	87.8

package MIME::Expander::Plugin::ApplicationGzip;

use strict;
use warnings;
use vars qw($VERSION);
$VERSION = '0.01';

use parent qw(MIME::Expander::Plugin);
__PACKAGE__->mk_classdata('ACCEPT_TYPES' => [qw(
    application/gzip
    application/x-gzip
    )]);

use IO::Uncompress::Gunzip;

sub expand {
    my $self        = shift;
    my $contents    = shift;
    my $callback    = shift;
    my $c           = 0;

    my $z = IO::Uncompress::Gunzip->new(
        ref $contents eq 'SCALAR' ? $contents : \$contents
        , Append => 1)
        or die "gunzip failed: $IO::Uncompress::Gunzip::GunzipError";

    my $buf;
    1 while( 0 < $z->read($buf) );

    my $h = $z->getHeaderInfo || {};
    $callback->( \$buf, {
        filename => $h->{Name},
        } ) if( ref $callback eq 'CODE' );
    ++$c;

    return $c;
}

1;
__END__