File Coverage

blib/lib/Mail/Milter/Authentication/Constants.pm
Criterion Covered Total %
statement 180 180 100.0
branch n/a
condition n/a
subroutine 60 60 100.0
pod n/a
total 240 240 100.0


line stmt bran cond sub pod time code
1             package Mail::Milter::Authentication::Constants;
2             # ABSTRACT: Define and export useful constants
3 99     99   595 use strict;
  99         198  
  99         2480  
4 99     99   447 use warnings;
  99         150  
  99         2232  
5 99     99   449 use base 'Exporter';
  99         194  
  99         11475  
6             our $VERSION = '20191206'; # VERSION
7              
8              
9             ## no critic [Modules::ProhibitAutomaticExportation]
10              
11 99     99   638 use constant SMFIA_UNKNOWN => 'U';
  99         246  
  99         6830  
12 99     99   639 use constant SMFIA_UNIX => 'L';
  99         197  
  99         4181  
13 99     99   549 use constant SMFIA_INET => '4';
  99         163  
  99         3555  
14 99     99   453 use constant SMFIA_INET6 => '6';
  99         193  
  99         4377  
15              
16 99     99   633 use constant SMFIC_ABORT => 'A';
  99         196  
  99         4115  
17 99     99   539 use constant SMFIC_BODY => 'B';
  99         159  
  99         4912  
18 99     99   582 use constant SMFIC_CONNECT => 'C';
  99         196  
  99         3958  
19 99     99   501 use constant SMFIC_MACRO => 'D';
  99         194  
  99         4313  
20 99     99   1325 use constant SMFIC_BODYEOB => 'E';
  99         246  
  99         4584  
21 99     99   494 use constant SMFIC_HELO => 'H';
  99         200  
  99         3481  
22 99     99   498 use constant SMFIC_HEADER => 'L';
  99         152  
  99         4122  
23 99     99   537 use constant SMFIC_MAIL => 'M';
  99         196  
  99         4390  
24 99     99   553 use constant SMFIC_EOH => 'N';
  99         156  
  99         4763  
25 99     99   541 use constant SMFIC_OPTNEG => 'O';
  99         196  
  99         4419  
26 99     99   546 use constant SMFIC_RCPT => 'R';
  99         203  
  99         4272  
27 99     99   540 use constant SMFIC_QUIT => 'Q';
  99         149  
  99         4134  
28 99     99   1012 use constant SMFIC_DATA => 'T';
  99         239  
  99         4582  
29 99     99   593 use constant SMFIC_UNKNOWN => 'U';
  99         110  
  99         4317  
30              
31 99     99   540 use constant SMFIR_ADDRCPT => '+';
  99         196  
  99         4201  
32 99     99   1045 use constant SMFIR_DELRCPT => '-';
  99         195  
  99         3615  
33 99     99   457 use constant SMFIR_ACCEPT => 'a';
  99         151  
  99         4115  
34 99     99   539 use constant SMFIR_REPLBODY => 'b';
  99         153  
  99         3798  
35 99     99   495 use constant SMFIR_CONTINUE => 'c';
  99         195  
  99         3787  
36 99     99   493 use constant SMFIR_DISCARD => 'd';
  99         204  
  99         5604  
37 99     99   793 use constant SMFIR_ADDHEADER => 'h';
  99         495  
  99         4449  
38 99     99   549 use constant SMFIR_INSHEADER => 'i';
  99         193  
  99         3461  
39 99     99   453 use constant SMFIR_CHGHEADER => 'm';
  99         193  
  99         4082  
40 99     99   545 use constant SMFIR_PROGRESS => 'p';
  99         151  
  99         3891  
41 99     99   496 use constant SMFIR_QUARANTINE => 'q';
  99         195  
  99         3908  
42 99     99   540 use constant SMFIR_REJECT => 'r';
  99         109  
  99         4141  
43 99     99   588 use constant SMFIR_SETSENDER => 's';
  99         155  
  99         3366  
44 99     99   497 use constant SMFIR_TEMPFAIL => 't';
  99         148  
  99         7704  
45 99     99   637 use constant SMFIR_REPLYCODE => 'y';
  99         625  
  99         4783  
46              
47 99     99   554 use constant SMFIP_NOCONNECT => 0x01;
  99         201  
  99         3427  
48 99     99   626 use constant SMFIP_NOHELO => 0x02;
  99         157  
  99         4121  
49 99     99   552 use constant SMFIP_NOMAIL => 0x04;
  99         207  
  99         4075  
50 99     99   492 use constant SMFIP_NORCPT => 0x08;
  99         194  
  99         4038  
51 99     99   500 use constant SMFIP_NOBODY => 0x10;
  99         194  
  99         4131  
52 99     99   549 use constant SMFIP_NOHDRS => 0x20;
  99         193  
  99         3275  
53 99     99   448 use constant SMFIP_NOEOH => 0x40;
  99         201  
  99         3854  
54 99     99   555 use constant SMFIP_NONE => 0x7F;
  99         405  
  99         4453  
55              
56 99     99   509 use constant SMFIS_CONTINUE => 100;
  99         202  
  99         3832  
57 99     99   535 use constant SMFIS_REJECT => 101;
  99         159  
  99         4729  
58 99     99   559 use constant SMFIS_DISCARD => 102;
  99         201  
  99         3355  
59 99     99   455 use constant SMFIS_ACCEPT => 103;
  99         200  
  99         3983  
60 99     99   550 use constant SMFIS_TEMPFAIL => 104;
  99         193  
  99         3688  
61              
62 99     99   495 use constant SMFIF_ADDHDRS => 0x01;
  99         155  
  99         5206  
63 99     99   491 use constant SMFIF_CHGBODY => 0x02;
  99         202  
  99         4035  
64 99     99   508 use constant SMFIF_ADDRCPT => 0x04;
  99         165  
  99         4132  
65 99     99   505 use constant SMFIF_DELRCPT => 0x08;
  99         154  
  99         4093  
66 99     99   549 use constant SMFIF_CHGHDRS => 0x10;
  99         109  
  99         4291  
67 99     99   540 use constant SMFIF_MODBODY => SMFIF_CHGBODY;
  99         201  
  99         3420  
68 99     99   460 use constant SMFIF_QUARANTINE => 0x20;
  99         152  
  99         4513  
69 99     99   548 use constant SMFIF_SETSENDER => 0x40;
  99         152  
  99         4524  
70              
71 99     99   457 use constant SMFI_V1_ACTS => SMFIF_ADDHDRS|SMFIF_CHGBODY|SMFIF_ADDRCPT|SMFIF_DELRCPT;
  99         446  
  99         5046  
72 99     99   495 use constant SMFI_V2_ACTS => SMFI_V1_ACTS|SMFIF_CHGHDRS;
  99         198  
  99         4166  
73 99     99   535 use constant SMFI_CURR_ACTS => SMFI_V2_ACTS;
  99         161  
  99         13543  
74              
75             our @EXPORT = qw(
76             SMFIA_UNKNOWN
77             SMFIA_UNIX
78             SMFIA_INET
79             SMFIA_INET6
80             SMFIC_ABORT
81             SMFIC_BODY
82             SMFIC_CONNECT
83             SMFIC_MACRO
84             SMFIC_BODYEOB
85             SMFIC_HELO
86             SMFIC_HEADER
87             SMFIC_MAIL
88             SMFIC_EOH
89             SMFIC_OPTNEG
90             SMFIC_RCPT
91             SMFIC_QUIT
92             SMFIC_DATA
93             SMFIC_UNKNOWN
94             SMFIR_ADDRCPT
95             SMFIR_DELRCPT
96             SMFIR_ACCEPT
97             SMFIR_REPLBODY
98             SMFIR_CONTINUE
99             SMFIR_DISCARD
100             SMFIR_ADDHEADER
101             SMFIR_INSHEADER
102             SMFIR_CHGHEADER
103             SMFIR_PROGRESS
104             SMFIR_QUARANTINE
105             SMFIR_REJECT
106             SMFIR_SETSENDER
107             SMFIR_TEMPFAIL
108             SMFIR_REPLYCODE
109             SMFIP_NOCONNECT
110             SMFIP_NOHELO
111             SMFIP_NOMAIL
112             SMFIP_NORCPT
113             SMFIP_NOBODY
114             SMFIP_NOHDRS
115             SMFIP_NOEOH
116             SMFIP_NONE
117             SMFIS_CONTINUE
118             SMFIS_REJECT
119             SMFIS_DISCARD
120             SMFIS_ACCEPT
121             SMFIS_TEMPFAIL
122             SMFIF_ADDHDRS
123             SMFIF_CHGBODY
124             SMFIF_ADDRCPT
125             SMFIF_DELRCPT
126             SMFIF_CHGHDRS
127             SMFIF_MODBODY
128             SMFIF_QUARANTINE
129             SMFIF_SETSENDER
130             SMFI_V1_ACTS
131             SMFI_V2_ACTS
132             SMFI_CURR_ACTS
133             );
134             our @EXPORT_OK = ( @EXPORT );
135             our %EXPORT_TAGS = ( 'all' => [ @EXPORT_OK ] );
136              
137              
138             1;
139              
140             __END__
141              
142             =pod
143              
144             =encoding UTF-8
145              
146             =head1 NAME
147              
148             Mail::Milter::Authentication::Constants - Define and export useful constants
149              
150             =head1 VERSION
151              
152             version 20191206
153              
154             =head1 SYNOPSIS
155              
156             Constants defined here are used in the sendmail milter protocol.
157              
158             =head1 DESCRIPTION
159              
160             Exports useful constants.
161              
162             =head1 AUTHOR
163              
164             Marc Bradshaw <marc@marcbradshaw.net>
165              
166             =head1 COPYRIGHT AND LICENSE
167              
168             This software is copyright (c) 2018 by Marc Bradshaw.
169              
170             This is free software; you can redistribute it and/or modify it under
171             the same terms as the Perl 5 programming language system itself.
172              
173             =cut