File Coverage

blib/lib/Try/Tiny/Tiny.pm
Criterion Covered Total %
statement 18 18 100.0
branch 6 6 100.0
condition 2 3 66.6
subroutine 3 3 100.0
pod n/a
total 29 30 96.6


line stmt bran cond sub pod time code
1 2     2   782 use strict; use warnings;
  2     2   3  
  2         42  
  2         8  
  2         3  
  2         371  
2              
3             package Try::Tiny::Tiny;
4             our $VERSION = '0.004';
5              
6             my $effective;
7              
8             BEGIN {
9 2 100   2   10 if ( not exists $INC{'Try/Tiny.pm'} ) {
10 1         2 my @hide = qw( Sub/Name.pm Sub/Util.pm );
11 1         3 local @INC{ @hide };
12 1         2 delete @INC{ @hide };
13 1 100 66     6 local @INC = ( sub { die if 'Try::Tiny' eq caller and grep $_ eq $_[1], @hide }, @INC );
  3         803  
14 1         8 require Try::Tiny;
15             }
16 2         666 my $cb = sub { (caller 0)[3] };
  4         51  
17 2         5 my $name = &$cb;
18 2         7 $effective = $name eq &Try::Tiny::try($cb);
19 2 100       51 warn __PACKAGE__ . " is ineffective (probably loaded too late)\n" unless $effective;
20             }
21              
22             $effective;
23              
24             __END__