File Coverage

blib/lib/Mail/TLSRPT/Pragmas.pm
Criterion Covered Total %
statement 38 38 100.0
branch n/a
condition n/a
subroutine 11 11 100.0
pod n/a
total 49 49 100.0


line stmt bran cond sub pod time code
1             package Mail::TLSRPT::Pragmas;
2             # ABSTRACT: Setup system wide pragmas
3             our $VERSION = '2.20210112'; # VERSION
4 9     9   13639 use 5.20.0;
  9         76  
5 9     9   49 use strict;
  9         48  
  9         265  
6 9     9   58 use warnings;
  9         19  
  9         290  
7             require feature;
8 9     9   4122 use Import::Into;
  9         21005  
  9         242  
9              
10 9     9   54 use Carp;
  9         17  
  9         781  
11 9     9   4217 use English;
  9         44754  
  9         48  
12 9     9   9078 use JSON;
  9         103014  
  9         49  
13 9     9   6480 use Types::Standard;
  9         627509  
  9         87  
14 9     9   10595 use Type::Utils;
  9         41046  
  9         86  
15              
16 9     9   16795 use open ':std', ':encoding(UTF-8)';
  9         9888  
  9         55  
17              
18              
19             sub import {
20 42     42   1119 strict->import;
21 42         493 warnings->import;
22 42         3189 feature->import($_) for ( qw{ postderef signatures } );
23 42         736 warnings->unimport($_) for ( qw{ experimental::postderef experimental::signatures } );
24              
25 42         372 Carp->import::into(scalar caller);
26 42         9921 Types::Standard->import::into(scalar caller, qw{ Str Int HashRef ArrayRef Enum } );
27 42         46820 Type::Utils->import::into(scalar caller, qw{ class_type } );
28 42         27024 English->import::into(scalar caller);
29 42         19971 JSON->import::into(scalar caller);
30             }
31              
32             1;
33              
34             __END__
35              
36             =pod
37              
38             =encoding UTF-8
39              
40             =head1 NAME
41              
42             Mail::TLSRPT::Pragmas - Setup system wide pragmas
43              
44             =head1 VERSION
45              
46             version 2.20210112
47              
48             =head1 SYNOPSIS
49              
50             Included in all other modules to setup common pragmas and imports
51              
52             =head1 DESCRIPTION
53              
54             Setup system wide pragmas
55              
56             =head1 METHODS
57              
58             =head2 I<import()>
59              
60             Import standard pragmas and imports into current namespace
61              
62             =head1 AUTHOR
63              
64             Marc Bradshaw <marc@marcbradshaw.net>
65              
66             =head1 COPYRIGHT AND LICENSE
67              
68             This software is copyright (c) 2020 by Marc Bradshaw.
69              
70             This is free software; you can redistribute it and/or modify it under
71             the same terms as the Perl 5 programming language system itself.
72              
73             =cut