File Coverage

blib/lib/Eirotic.pm
Criterion Covered Total %
statement 30 30 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod n/a
total 38 38 100.0


line stmt bran cond sub pod time code
1             package Eirotic;
2              
3             #ABSTRACT: Eirotic - a module to load and use Perl my may
4              
5             =encoding utf8
6             =head1 NAME
7              
8             Eirotic - a module to load and use Perl my may
9              
10             =head1 VERSION
11              
12             0.3
13              
14             =cut
15             our $VERSION = '0.3';
16              
17             =head1 SYNOPSIS
18              
19             writting
20              
21             use Eirotic;
22              
23             replaces this boilerplate
24              
25             use 5.20.0;
26             use strict;
27             use warnings qw( FATAL all );
28             use experimental 'signatures';
29             use Perlude;
30             use curry;
31             use Path::Tiny;
32             require YAML;
33              
34             =head1 CHANGES
35              
36             =head1 v0.1 (2015)
37              
38             =over 4
39              
40             =item *
41              
42             C moved to C.
43              
44             =item *
45              
46             C replaced by C.
47              
48             =item *
49              
50             L replaced by CORE experimental ones.
51              
52             =back
53              
54             =head1 YET EXPERIMENTING
55              
56             =head2 Unicode everywhere
57              
58             is utf8::all a good idea ? use C instead of my own import?
59              
60             =head2 List::AllUtils ?
61              
62             temptation is strong but i don't want to conflict with perlude, even in the
63             user's brain.
64              
65             what about the idea from L (used in Perlude): use a very short NS. like
66             C for C and C for stream?
67              
68             =head2 About autodie and fatal warnings
69              
70             seems to be nice but maybe i should read L
71              
72             =head1 AUTHOR
73              
74             Marc Chantreux
75              
76             =head1 BUGS
77            
78             Please report any bugs or feature requests to C, or through
79             the web interface at
80             L. I will be
81             notified, and then you'll automatically be notified of progress on your bug as
82             I make changes.
83            
84             =head1 SUPPORT
85            
86             You can find documentation for this module with the perldoc command.
87            
88             perldoc Eirotic
89            
90             You can also look for information at:
91            
92             =over 4
93            
94             =item * RT: CPAN's request tracker
95            
96             L
97            
98             =item * AnnoCPAN: Annotated CPAN documentation
99            
100             L
101            
102             =item * CPAN Ratings
103            
104             L
105            
106             =item * CPAN
107            
108             L
109            
110             =back
111            
112             =head1 COPYRIGHT
113            
114             Copyright 2013-2015 Marc Chantreux (eiro).
115              
116             =head1 LICENSE
117            
118             This program is free software; you can redistribute it and/or modify it
119             under the terms of either: the GNU General Public License as published
120             by the Free Software Foundation; or the Artistic License.
121            
122             See L for more information.
123              
124             =cut
125              
126 3     3   25121 use strict ();
  3         7  
  3         77  
127 3     3   15 use warnings ();
  3         4  
  3         40  
128 3     3   15 use feature ();
  3         11  
  3         43  
129 3     3   3235 use autodie ();
  3         77631  
  3         159  
130             require Perlude;
131             require YAML;
132 3     3   2753 use curry;
  3         805  
  3         459  
133             require Path::Tiny;
134             require Import::Into;
135              
136             sub import {
137              
138 3     3   70 my ( $what ) = pop;
139 3         15 my ( $caller ) = caller;
140              
141 3         749 feature->import(':5.20'); # use 5.20.0;
142 3         68 strict->import; # use strict;
143 3         55 warnings->import; # use warnings qw( FATAL all );
144             # warnings->import(qw( FATAL all )); # use warnings qw( FATAL all );
145              
146             #use experimental 'signatures';
147              
148 3         40 feature->import('signatures');
149 3         83 warnings->unimport("experimental::signatures");
150              
151 3     3   2388 use Perlude;
  3         11428  
  3         522  
152 3     3   4040 use Path::Tiny;
  3         54637  
  3         567  
153            
154             #return unless $what eq "-full";
155 3         26 Perlude->import::into($caller);
156 3         1159 Path::Tiny->import::into($caller);
157              
158             }
159              
160             1;
161