File Coverage

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

Criterion	Covered	Total	%
statement	26	26	100.0
branch	4	6	66.6
condition			n/a
subroutine	6	6	100.0
pod	0	1	0.0
total	36	39	92.3

package MIME::Expander::Plugin::MessageRFC822;

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

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

use Email::MIME;

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

    my @parts = (Email::MIME->new(
        ref $contents eq 'SCALAR' ? $contents : \$contents
        ));
    while( my $part = shift @parts ){
        if( 1 < $part->parts ){
            push @parts, $part->subparts;
        }else{
            ++$c;
            $callback->( \$part->body, {
                filename => $part->filename,
                } ) if( ref $callback eq 'CODE' );
        }
    }

    return $c;
}

1;
__END__