File Coverage

blib/lib/Email/Filter/Rules.pm

Criterion	Covered	Total	%
statement	43	43	100.0
branch	21	22	95.4
condition	9	9	100.0
subroutine	5	5	100.0
pod	2	2	100.0
total	80	81	98.7

package Email::Filter::Rules;
use strict;
use warnings;
use constant RULE_SPLIT_LIMIT => 3;

our $VERSION =  1.2;

sub new {
    my ( $class, %args ) = @_;
    return unless $args{rules};
    my @rules = ();

    # added the \n check because I got a warning if a did a -e test on
    # a scalar containing newlines
    if ( $args{rules} !~ /\n/s && -e $args{rules} ) {
        open my $fh, '<', $args{rules} or die "Can't open file $args{rules}: $!";
        @rules = <$fh>;
        close $fh;
    }
    elsif ( ref $args{rules} eq 'ARRAY' ) {
        @rules = @{ $args{rules} };
    }
    else {
        @rules = split /\n/, $args{rules};
    }
    return unless scalar @rules;

    my @rule_data = ();

    for my $line (@rules) {
        chomp($line);
        next if $line =~ /^#/;
        my ( $folder, $methods, $substring ) = split( /\s+/, $line, RULE_SPLIT_LIMIT );
        next unless $methods && $folder && $substring;
        my $escaped_substring = quotemeta($substring);
        my @methods = split( /\:/, $methods );
        push @rule_data, {
            methods   => \@methods,
            substring => $escaped_substring,
            folder    => $folder,
        };
    }

    my $obj = {
        rule_data => \@rule_data,
        debug     => $args{debug},
    };

    return bless $obj, $class;
}

sub apply_rules {
    my ( $self, $email ) = @_;
    for my $rule ( @{ $self->{rule_data} } ) {
        for my $method ( @{ $rule->{methods} } ) {
            my $substring = $rule->{substring};
            next unless $email->can($method);
            my $testing = $email->$method;
            next unless $testing;
            warn "testing $method \"$testing\" with $substring\n"
                if $self->{debug};

            # going to keep the 'i' now, may pass this in somehow
            return $rule->{folder} if $testing =~ /$substring/is;
        }
    }
    return;
}

1;

__END__