File Coverage

blib/lib/Image/Processor/Mail/GetImages.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Image::Processor::Mail::GetImages;

use strict;

use base 'Image::Processor::Base';

use Mail::MboxParser;

sub store_only {
    my ($self,$set) = @_;
    return $self->{'store_only'} if !$set;
    $self->{'store_only'} = $set;
}

sub mbox_file {
    my ($self,$set) = @_;
    return $self->{'mbox_file'} if !$set;
    $self->{'mbox_file'} = $set;
}

sub attachment_output_directory {
    my ($self,$set) = @_;
    if (!-d $set && $set) { $self->error("Directory $set doesn't exist\n"); }
    return $self->{'attachment_output_directory'} if !$set;
    $self->{'attachment_output_directory'} = $set;
}


sub process_mails {
    my ($self) = @_;
    $self->graceful_exit(
        "You have not set 'attachment_output_directory'")
            if !$self->attachment_output_directory();
    chdir( $self->mbox_file() );
    foreach my $file ( <*> ) {
        # print "Working on $file\n";
        process_file($file);
    }
}

sub process_file {
    my ($self,$file) = @_;
    $self->graceful_exit(
        "You have not 'attachment_output_directory'")
            if !$self->attachment_output_directory();

    $file = "/$file" if $file;
    my $file_to_open = $self->mbox_file() . "$file";

    my $mb = Mail::MboxParser->new($file_to_open, decode => 'ALL');
    my $store_only = $self->store_only() || '(jpg|gif)$';

    while (my $msg = $mb->next_message) {
        $msg->store_all_attachments(
                   path => $self->attachment_output_directory(),
                   store_only => $store_only
                   );
    }
}

1;

__END__