File Coverage

tlib/Keyword/Export/Test.pm
Criterion Covered Total %
statement 23 34 67.6
branch 2 6 33.3
condition 3 8 37.5
subroutine 5 5 100.0
pod n/a
total 33 53 62.2


line stmt bran cond sub pod time code
1             package
2             # Hide this from the CPAN indexer...
3             Keyword::Export::Test;
4              
5 1     1   96348 use warnings;
  1         10  
  1         36  
6              
7 1     1   931 use Keyword::Declare;
  1         5  
  1         10  
8              
9 0           sub import {
10             # keyword test1 {{{ ok 1, "test1" }}}
11 1     1   11 # keyword test (Int $n) {{{ ok «$n == 2», "test" }}}
12 0 50 50 1   0 keyword test3 (Int* @n) {{{ ok «@n && $n[0] == 3», "test3" }}}
  0         0  
  0         0  
  1         17  
  1         50  
  1         2  
  1         1  
13 0         0 # keyword test4 (Block) {{{ ok 1, "test4"; }}}
  1         5  
  1         3  
14 0   0     0 }
  1   66     26720  
15 0         0  
  1         95  
16              
17             1; # Magic true value required at end of module
18 0         0 __END__