File Coverage

blib/lib/Email/LocalDelivery.pm

Criterion	Covered	Total	%
statement	30	34	88.2
branch	3	6	50.0
condition	0	3	0.0
subroutine	6	6	100.0
pod	1	1	100.0
total	40	50	80.0

use strict;
use warnings;
package Email::LocalDelivery 1.201;
# ABSTRACT: Deliver a piece of email - simply

use File::Path::Expand 1.01 qw(expand_filename);
use Email::FolderType 0.7 qw(folder_type);
use Carp;

#pod =head1 SYNOPSIS
#pod
#pod   use Email::LocalDelivery;
#pod   my @delivered_to = Email::LocalDelivery->deliver($mail, @boxes);
#pod
#pod =head1 DESCRIPTION
#pod
#pod This module delivers an email to a list of mailboxes.
#pod
#pod B  You might be better off looking at L, and at
#pod L and L.
#pod They are heavily used and more carefully monitored.
#pod
#pod =method deliver
#pod
#pod This takes an email, as a plain string, and a list of mailboxes to
#pod deliver that mail to. It returns the list of boxes actually written to.
#pod If no boxes are given, it assumes the standard Unix mailbox. (Either
#pod C<$ENV{MAIL}>, F, F, or
#pod F<~you/Maildir/>)
#pod
#pod =cut

sub deliver {
    my ($class, $mail, @boxes) = @_;

    croak "Mail argument to deliver should just be a plain string"
        if ref $mail;

    if (!@boxes) {
        my $default_maildir = (getpwuid($>))[7] . "/Maildir/";
        my $default_unixbox
          = (grep { -d $_ } qw(/var/spool/mail/ /var/mail/))[0]
          . getpwuid($>);

        @boxes = $ENV{MAIL}
            || (-e $default_unixbox && $default_unixbox)
            || (-d $default_maildir."cur" && $default_maildir);
    }
    my %to_deliver;

    for my $box (@boxes) {
      $box = expand_filename($box);
      push @{$to_deliver{folder_type($box)}}, $box;
    }

    my @rv;
    for my $method (keys %to_deliver) {
        eval "require Email::LocalDelivery::$method";
        croak "Couldn't load a module to handle $method mailboxes" if $@;
        push @rv,
        "Email::LocalDelivery::$method"->deliver($mail,
                                                @{$to_deliver{$method}});
    }
    return @rv;
}

1;

__END__