File Coverage

blib/lib/Siesta/Plugin/SubjectTag.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	4	4	100.0
condition	2	2	100.0
subroutine	6	6	100.0
pod	2	3	66.6
total	33	34	97.0

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


sub description {
    'allows you to add something to the start of the subject line of each outgoing mail';
}

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

    my $munge = $self->pref('subjecttag');

    return unless $munge;

    my $subject = $mail->subject || 'no subject';
    my $list_name = $self->list->name;
    $mail->subject("$munge $subject")
      unless $subject =~ /\Q$munge/;
    return;
}

sub options {
    +{
      'subjecttag'
      => {
          'description' =>
          'Add something to the start of the subject line of each out going mail.',
          'type'    => 'string',
          'default' => '',
          'widget'  => 'textbox',
         },
     };
}


1;
__END__