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             # ABSTRACT: use perl *my* way
3             our $VERSION = '0.2';
4              
5             =head1 SYNOPSIS
6              
7             writting
8              
9             use Eirotic;
10              
11             replaces this boilerplate
12              
13             use 5.20.0;
14             use strict;
15             use warnings qw( FATAL all );
16             use experimental 'signatures';
17             use Perlude;
18             use curry;
19             use Path::Tiny;
20             require YAML;
21              
22             =head1 CHANGES
23              
24             =head1 v0.1 (2015)
25              
26             =over 4
27              
28             =item *
29              
30             C moved to C.
31              
32             =item *
33              
34             C replaced by C.
35              
36             =item *
37              
38             L replaced by CORE experimental ones.
39              
40             =back
41              
42             =head1 Yet experimenting
43              
44             =head2 Unicode everywhere
45              
46             is utf8::all a good idea ? use C instead of my own import?
47              
48             =head2 List::AllUtils ?
49              
50             temptation is strong but i don't want to conflict with perlude, even in the
51             user's brain.
52              
53             what about the idea from C (used in Perlude): use a very short NS. like
54             C for C and C for stream?
55              
56             =head2 About autodie and fatal warnings
57              
58             seems to be nice but maybe i should read
59             U
60              
61             =head1 CREDITS
62              
63             Author: Marc Chantreux
64              
65             =cut
66              
67 3     3   13304 use strict ();
  3         5  
  3         46  
68 3     3   8 use warnings ();
  3         3  
  3         23  
69 3     3   8 use feature ();
  3         6  
  3         20  
70 3     3   1200 use autodie ();
  3         33865  
  3         88  
71             require Perlude;
72             require YAML;
73 3     3   1526 use curry;
  3         477  
  3         212  
74             require Path::Tiny;
75             require Import::Into;
76              
77             sub import {
78              
79 3     3   44 my ( $what ) = pop;
80 3         9 my ( $caller ) = caller;
81              
82 3         308 feature->import(':5.20'); # use 5.20.0;
83 3         27 strict->import; # use strict;
84 3         25 warnings->import; # use warnings qw( FATAL all );
85             # warnings->import(qw( FATAL all )); # use warnings qw( FATAL all );
86              
87             #use experimental 'signatures';
88              
89 3         21 feature->import('signatures');
90 3         34 warnings->unimport("experimental::signatures");
91              
92 3     3   1080 use Perlude;
  3         5340  
  3         206  
93 3     3   1910 use Path::Tiny;
  3         25488  
  3         304  
94            
95             #return unless $what eq "-full";
96 3         15 Perlude->import::into($caller);
97 3         607 Path::Tiny->import::into($caller);
98              
99             }
100              
101             1;
102