File Coverage

blib/lib/perl5i.pm
Criterion Covered Total %
statement 12 13 92.3
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod n/a
total 17 19 89.4


line stmt bran cond sub pod time code
1             package perl5i;
2              
3             ######################################
4             # The real code is in perl5i::2 #
5             # Please patch that #
6             ######################################
7              
8 1     1   1034 use strict;
  1         2  
  1         99  
9 1     1   7 use parent 'perl5i::latest';
  1         2  
  1         8  
10              
11 1     1   179 use perl5i::VERSION; our $VERSION = perl5i::VERSION->VERSION;
  1         2  
  1         357  
12              
13             my $Latest = perl5i::VERSION->latest;
14              
15             sub import {
16 1 50   1   1160 if ($0 eq '-e') {
17 0         0 goto &perl5i::latest::import;
18             }
19             else {
20 1         7 require Carp::Fix::1_25;
21 1         285 Carp::Fix::1_25::croak(<
22             perl5i will break compatibility in the future, you can't just "use perl5i".
23              
24             Instead, "use $Latest" which will guarantee compatibility with all
25             features supplied in that major version.
26              
27             Type "perldoc perl5i" for details in the section "Using perl5i".
28             END
29             }
30             }
31              
32             1;
33              
34             __END__