File Coverage

blib/lib/Mail/Milter/Authentication/Pragmas.pm
Criterion Covered Total %
statement 75 75 100.0
branch n/a
condition n/a
subroutine 22 22 100.0
pod n/a
total 97 97 100.0


line stmt bran cond sub pod time code
1             package Mail::Milter::Authentication::Pragmas;
2 127     127   27093373 use 5.20.0;
  127         2304  
3 127     127   1834 use strict;
  127         252  
  127         3727  
4 127     127   827 use warnings;
  127         319  
  127         9330  
5             # ABSTRACT: Setup system wide pragmas
6             our $VERSION = '3.20230911'; # VERSION
7 127     127   1746 use base 'Exporter';
  127         261  
  127         22228  
8             require feature;
9 127     127   70226 use open ':std', ':encoding(UTF-8)';
  127         170663  
  127         753  
10 127     127   529402 use Import::Into;
  127         384887  
  127         3930  
11              
12 127     127   60102 use Mail::Milter::Authentication::Constants;
  127         378  
  127         27533  
13 127     127   65331 use Mail::Milter::Authentication::Config;
  127         607  
  127         5916  
14 127     127   794 use Carp;
  127         362  
  127         6148  
15 127     127   55060 use Clone;
  127         319969  
  127         7156  
16 127     127   976 use English;
  127         259  
  127         752  
17 127     127   118316 use File::Slurp;
  127         2049903  
  127         7861  
18 127     127   974 use JSON::XS;
  127         323  
  127         5545  
19 127     127   779 use Module::Load;
  127         266  
  127         852  
20 127     127   5664 use Module::Loaded;
  127         258  
  127         6308  
21 127     127   57221 use Mail::AuthenticationResults 1.20200108;
  127         3607107  
  127         4064  
22 127     127   1402 use Mail::AuthenticationResults::Header;
  127         277  
  127         2437  
23 127     127   1296 use Mail::AuthenticationResults::Header::AuthServID;
  127         327  
  127         2644  
24 127     127   917 use Mail::AuthenticationResults::Header::Comment;
  127         855  
  127         2238  
25 127     127   800 use Mail::AuthenticationResults::Header::Entry;
  127         262  
  127         2180  
26 127     127   694 use Mail::AuthenticationResults::Header::SubEntry;
  127         334  
  127         25672  
27              
28              
29             sub import {
30 2017     2017   14153 strict->import();
31 2017         19468 warnings->import();
32 2017         159670 feature->import($_) for ( qw{ postderef signatures } );
33 2017         43560 warnings->unimport($_) for ( qw{ experimental::postderef experimental::signatures } );
34              
35 2017         24178 Mail::Milter::Authentication::Config->import::into(scalar caller,qw{ set_config get_config setup_config });
36 2017         582721 Mail::Milter::Authentication::Constants->import::into(scalar caller);
37              
38 2017         813884 Carp->import::into(scalar caller);
39 2017         472911 Clone->import::into(scalar caller,qw{ clone });
40 2017         411861 English->import::into(scalar caller);
41 2017         1040976 File::Slurp->import::into(scalar caller, qw{ read_file write_file } );
42 2017         480172 JSON::XS->import::into(scalar caller);
43 2017         419658 Module::Load->import::into(scalar caller);
44 2017         404683 Module::Loaded->import::into(scalar caller);
45             }
46              
47             1;
48              
49             __END__
50              
51             =pod
52              
53             =encoding UTF-8
54              
55             =head1 NAME
56              
57             Mail::Milter::Authentication::Pragmas - Setup system wide pragmas
58              
59             =head1 VERSION
60              
61             version 3.20230911
62              
63             =head1 AUTHOR
64              
65             Marc Bradshaw <marc@marcbradshaw.net>
66              
67             =head1 COPYRIGHT AND LICENSE
68              
69             This software is copyright (c) 2020 by Marc Bradshaw.
70              
71             This is free software; you can redistribute it and/or modify it under
72             the same terms as the Perl 5 programming language system itself.
73              
74             =cut