File Coverage

blib/lib/Mail/MtPolicyd/Plugin/Action.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Mail::MtPolicyd::Plugin::Action;
2              
3 3     3   2305 use Moose;
  3         4  
  3         16  
4 3     3   13009 use namespace::autoclean;
  3         4  
  3         21  
5              
6             our $VERSION = '2.01'; # VERSION
7             # ABSTRACT: mtpolicyd plugin which just returns an action
8              
9              
10             extends 'Mail::MtPolicyd::Plugin';
11              
12 3     3   240 use Mail::MtPolicyd::Plugin::Result;
  3         4  
  3         242  
13              
14             has 'action' => ( is => 'ro', isa => 'Str', required => 1 );
15              
16             sub run {
17 2     2 1 4 my ( $self, $r ) = @_;
18              
19 2         52 return Mail::MtPolicyd::Plugin::Result->new(
20             action => $self->action,
21             abort => 1,
22             );
23             }
24              
25             __PACKAGE__->meta->make_immutable;
26              
27             1;
28              
29             __END__
30              
31             =pod
32              
33             =encoding UTF-8
34              
35             =head1 NAME
36              
37             Mail::MtPolicyd::Plugin::Action - mtpolicyd plugin which just returns an action
38              
39             =head1 VERSION
40              
41             version 2.01
42              
43             =head1 DESCRIPTION
44              
45             This plugin just returns the specified string as action.
46              
47             =head1 PARAMETERS
48              
49             =over
50              
51             =item action (required)
52              
53             A string with the action to return.
54              
55             =back
56              
57             =head1 EXAMPLE
58              
59             <Plugin reject-all>
60             module = "action"
61             # any postfix action will do
62             action=reject no reason
63             </Plugin>
64              
65             =head1 AUTHOR
66              
67             Markus Benning <ich@markusbenning.de>
68              
69             =head1 COPYRIGHT AND LICENSE
70              
71             This software is Copyright (c) 2014 by Markus Benning <ich@markusbenning.de>.
72              
73             This is free software, licensed under:
74              
75             The GNU General Public License, Version 2, June 1991
76              
77             =cut