File Coverage

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

Criterion	Covered	Total	%
statement	29	29	100.0
branch	3	4	75.0
condition	2	3	66.6
subroutine	7	7	100.0
pod	0	1	0.0
total	41	44	93.1

package MIME::Expander::Plugin::ApplicationTar;

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

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

use Archive::Tar;
use IO::Scalar;

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

    my $contents = $part->body;
    my $iter = Archive::Tar->iter(IO::Scalar->new(
        \$contents,
        ));
    while( my $f = $iter->() ){
        if( $f->has_content and $f->validate ){
            $callback->( $f->get_content_by_ref, {
                filename => $f->full_path,
                } ) if( ref $callback eq 'CODE' );
            ++$c;
        }
    }

    return $c;
}

1;
__END__