File Coverage

blib/lib/Siesta/Plugin/Debounce.pm

Criterion	Covered	Total	%
statement	16	18	88.8
branch	0	2	0.0
condition			n/a
subroutine	5	5	100.0
pod	1	2	50.0
total	22	27	81.4

package Siesta::Plugin::Debounce;
use strict;
use Siesta::Plugin;
use base 'Siesta::Plugin';

sub description {
    "handles bounces/loops.";
}

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

    my $post = $self->list->post_address;
    for my $been ( $mail->header_set('X-Been-There') ) {
        chomp $been;

        # have we been here before?
        return 1 if $been eq $post;
    }

    $mail->header_set( 'X-Been-There', $post );
    return;
}

1;