File Coverage

blib/lib/Siesta/Plugin/Send.pm

Criterion	Covered	Total	%
statement	20	22	90.9
branch	1	4	25.0
condition			n/a
subroutine	5	5	100.0
pod	1	2	50.0
total	27	33	81.8

# $Id: Send.pm 1179 2003-07-13 15:13:22Z richardc $
package Siesta::Plugin::Send;
use strict;
use Siesta::Plugin;
use base 'Siesta::Plugin';

sub description {
    "dispatch mail to list members";
}

sub process {
    my $self = shift;
    my $mail = shift;

    my $list = $self->list;
  USER: for my $user ($list->members) {
        next if $user->nomail;

        my $message = $mail->clone;

        for my $plugin (grep { $_->personal } $list->plugins) {
            $plugin->member($user);
            next USER if $plugin->process($message);
        }
        Siesta->sender->send( $message,
                              to   => $user->email,
                              from => $list->return_path,
                            );
    }
    return;
}

1;