File Coverage

blib/lib/Mail/TLSRPT/Pragmas.pm
Criterion Covered Total %
statement 34 34 100.0
branch n/a
condition n/a
subroutine 10 10 100.0
pod n/a
total 44 44 100.0


line stmt bran cond sub pod time code
1             package Mail::TLSRPT::Pragmas;
2             # ABSTRACT: Setup system wide pragmas
3             our $VERSION = '1.20200306.1'; # VERSION
4 8     8   13432 use 5.20.0;
  8         69  
5 8     8   49 use strict;
  8         27  
  8         260  
6 8     8   55 use warnings;
  8         14  
  8         261  
7             require feature;
8 8     8   3768 use Import::Into;
  8         19567  
  8         245  
9              
10 8     8   3825 use English;
  8         41966  
  8         45  
11 8     8   8428 use JSON;
  8         95590  
  8         42  
12 8     8   4838 use Types::Standard;
  8         518886  
  8         73  
13 8     8   8474 use Type::Utils;
  8         34429  
  8         73  
14              
15 8     8   15696 use open ':std', ':encoding(UTF-8)';
  8         9234  
  8         51  
16              
17             sub import {
18 37     37   1015 strict->import;
19 37         399 warnings->import;
20 37         2946 feature->import($_) for ( qw{ postderef signatures } );
21 37         746 warnings->unimport($_) for ( qw{ experimental::postderef experimental::signatures } );
22              
23 37         325 Types::Standard->import::into(scalar caller, qw{ Str Int HashRef ArrayRef Enum } );
24 37         45306 Type::Utils->import::into(scalar caller, qw{ class_type } );
25 37         25688 English->import::into(scalar caller);
26 37         18593 JSON->import::into(scalar caller);
27             }
28              
29             1;
30              
31             __END__
32              
33             =pod
34              
35             =encoding UTF-8
36              
37             =head1 NAME
38              
39             Mail::TLSRPT::Pragmas - Setup system wide pragmas
40              
41             =head1 VERSION
42              
43             version 1.20200306.1
44              
45             =head1 AUTHOR
46              
47             Marc Bradshaw <marc@marcbradshaw.net>
48              
49             =head1 COPYRIGHT AND LICENSE
50              
51             This software is copyright (c) 2020 by Marc Bradshaw.
52              
53             This is free software; you can redistribute it and/or modify it under
54             the same terms as the Perl 5 programming language system itself.
55              
56             =cut