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.20210301'; # VERSION
4 30     30   194241 use 5.20.0;
  30         276  
5 30     30   166 use strict;
  30         63  
  30         716  
6 30     30   150 use warnings;
  30         1968  
  30         6267  
7             require feature;
8              
9              
10 30     30   16540 use open ':std', ':encoding(UTF-8)';
  30         33082  
  30         151  
11 30     30   365818 use Import::Into;
  30         72769  
  30         935  
12 30     30   13448 use Mail::BIMI::Constants;
  30         69  
  30         1507  
13 30     30   178 use Carp;
  30         51  
  30         2129  
14 30     30   17690 use JSON;
  30         333871  
  30         168  
15              
16             sub import {
17 643     643   22061 strict->import;
18 643         8551 warnings->import;
19 643         54334 feature->import($_) for ( qw{ postderef signatures } );
20 643         14975 warnings->unimport($_) for ( qw{ experimental::postderef experimental::signatures } );
21 643         7445 Mail::BIMI::Constants->import::into(scalar caller);
22 643         175869 Carp->import::into(scalar caller);
23 643         127653 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.20210301
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