File Coverage

blib/lib/MIME/Expander/Plugin.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	5	8	62.5
condition	1	3	33.3
subroutine	8	8	100.0
pod	0	3	0.0
total	44	52	84.6

package MIME::Expander::Plugin;

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

use parent qw(Class::Data::Inheritable);
use Email::MIME;

__PACKAGE__->mk_classdata('ACCEPT_TYPES' => [qw(
    )]);

sub new {
    my $class = shift;
    bless {}, (ref $class || $class);
}

sub is_acceptable {
    my $self        = shift;
    my $type        = shift or return ();
    for ( @{$self->ACCEPT_TYPES} ){
        return 1 if( $type eq $_ );
    }
    return ();
}

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

    $callback->( ref $contents eq 'SCALAR' ? $contents : \$contents )
        if( ref $callback eq 'CODE' );

    ++$c;

    return $c;
}

1;
__END__