File Coverage

blib/lib/Mail/BIMI/Prelude.pm
Criterion Covered Total %
statement 30 30 100.0
branch n/a
condition n/a
subroutine 9 9 100.0
pod n/a
total 39 39 100.0


line stmt bran cond sub pod time code
1             package Mail::BIMI::Prelude;
2             # ABSTRACT: Setup system wide prelude
3             our $VERSION = '3.20210512'; # VERSION
4 30     30   203172 use 5.20.0;
  30         310  
5 30     30   152 use strict;
  30         70  
  30         730  
6 30     30   147 use warnings;
  30         44  
  30         1502  
7             require feature;
8              
9              
10 30     30   16534 use open ':std', ':encoding(UTF-8)';
  30         38254  
  30         159  
11 30     30   402162 use Import::Into;
  30         79588  
  30         1014  
12 30     30   14758 use Mail::BIMI::Constants;
  30         80  
  30         1703  
13 30     30   198 use Carp;
  30         57  
  30         2450  
14 30     30   19380 use JSON;
  30         366692  
  30         184  
15              
16             sub import {
17 618     618   22032 strict->import;
18 618         8740 warnings->import;
19 618         57647 feature->import($_) for ( qw{ postderef signatures } );
20 618         15825 warnings->unimport($_) for ( qw{ experimental::postderef experimental::signatures } );
21 618         7841 Mail::BIMI::Constants->import::into(scalar caller);
22 618         187335 Carp->import::into(scalar caller);
23 618         134385 JSON->import::into(scalar caller);
24             }
25              
26             1;
27              
28             __END__
29              
30             =pod
31              
32             =encoding UTF-8
33              
34             =head1 NAME
35              
36             Mail::BIMI::Prelude - Setup system wide prelude
37              
38             =head1 VERSION
39              
40             version 3.20210512
41              
42             =head1 DESCRIPTION
43              
44             Distribution wide pragmas and imports
45              
46             =head1 REQUIRES
47              
48             =over 4
49              
50             =item * L<Carp|Carp>
51              
52             =item * L<Import::Into|Import::Into>
53              
54             =item * L<JSON|JSON>
55              
56             =item * L<Mail::BIMI::Constants|Mail::BIMI::Constants>
57              
58             =item * L<feature|feature>
59              
60             =item * L<feature|feature>
61              
62             =item * L<open|open>
63              
64             =item * L<strict|strict>
65              
66             =item * L<warnings|warnings>
67              
68             =back
69              
70             =head1 AUTHOR
71              
72             Marc Bradshaw <marc@marcbradshaw.net>
73              
74             =head1 COPYRIGHT AND LICENSE
75              
76             This software is copyright (c) 2020 by Marc Bradshaw.
77              
78             This is free software; you can redistribute it and/or modify it under
79             the same terms as the Perl 5 programming language system itself.
80              
81             =cut