File Coverage

blib/lib/UNIVERSAL/cant.pm
Criterion Covered Total %
statement 19 19 100.0
branch 2 2 100.0
condition n/a
subroutine 7 7 100.0
pod 0 1 0.0
total 28 29 96.5


line stmt bran cond sub pod time code
1             package UNIVERSAL::cant;
2              
3 2     2   57243 use warnings;
  2         5  
  2         57  
4 2     2   11 use strict;
  2         4  
  2         61  
5              
6 2     2   1679 use version; our $VERSION = qv('0.0.1');
  2         10111  
  2         12  
7              
8             package UNIVERSAL;
9              
10 2     2   155 use warnings;
  2         4  
  2         62  
11 2     2   9 use strict;
  2         3  
  2         169  
12              
13             sub cant {
14 12     12 0 245 my ($pkg, @args) = @_;
15 12 100       79 return if $pkg->can( @args );
16 6         25 return 1;
17             }
18              
19             sub can::t {
20 6     6   18 goto &UNIVERSAL::cant;
21             }
22              
23             1;
24              
25             __END__