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.20210225'; # VERSION
4 30     30   233266 use 5.20.0;
  30         288  
5 30     30   174 use strict;
  30         66  
  30         679  
6 30     30   142 use warnings;
  30         2018  
  30         7476  
7             require feature;
8              
9              
10 30     30   17656 use open ':std', ':encoding(UTF-8)';
  30         36055  
  30         162  
11 30     30   388965 use Import::Into;
  30         78603  
  30         969  
12 30     30   13816 use Mail::BIMI::Constants;
  30         71  
  30         1634  
13 30     30   188 use Carp;
  30         55  
  30         2309  
14 30     30   18887 use JSON;
  30         357240  
  30         174  
15              
16             sub import {
17 642     642   22895 strict->import;
18 642         9135 warnings->import;
19 642         60016 feature->import($_) for ( qw{ postderef signatures } );
20 642         16039 warnings->unimport($_) for ( qw{ experimental::postderef experimental::signatures } );
21 642         8342 Mail::BIMI::Constants->import::into(scalar caller);
22 642         192234 Carp->import::into(scalar caller);
23 642         137574 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.20210225
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