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 = '1.20200413.1'; # VERSION
4 9     9   15174 use 5.20.0;
  9         82  
5 9     9   56 use strict;
  9         30  
  9         325  
6 9     9   52 use warnings;
  9         15  
  9         311  
7             require feature;
8 9     9   4329 use Import::Into;
  9         23013  
  9         280  
9              
10 9     9   67 use Carp;
  9         19  
  9         927  
11 9     9   4357 use English;
  9         48346  
  9         48  
12 9     9   9767 use JSON;
  9         112350  
  9         56  
13 9     9   6284 use Types::Standard;
  9         680410  
  9         99  
14 9     9   10560 use Type::Utils;
  9         45013  
  9         93  
15              
16 9     9   17855 use open ':std', ':encoding(UTF-8)';
  9         11028  
  9         61  
17              
18              
19             sub import {
20 42     42   1098 strict->import;
21 42         460 warnings->import;
22 42         3448 feature->import($_) for ( qw{ postderef signatures } );
23 42         801 warnings->unimport($_) for ( qw{ experimental::postderef experimental::signatures } );
24              
25 42         385 Carp->import::into(scalar caller);
26 42         10880 Types::Standard->import::into(scalar caller, qw{ Str Int HashRef ArrayRef Enum } );
27 42         51587 Type::Utils->import::into(scalar caller, qw{ class_type } );
28 42         30196 English->import::into(scalar caller);
29 42         21308 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 1.20200413.1
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