File Coverage

blib/lib/Keyword/With.pm
Criterion Covered Total %
statement 14 14 100.0
branch 1 2 50.0
condition 1 2 50.0
subroutine 5 5 100.0
pod n/a
total 21 23 91.3


line stmt bran cond sub pod time code
1             package Keyword::With;
2             # ABSTRACT: provide new syntax to use a 'given' statement without an experimental warning
3             $Keyword::With::VERSION = '0.002';
4 2     2   786 use strict;
  2         3  
  2         43  
5 2     2   5 use warnings;
  2         2  
  2         36  
6              
7 2     2   1150 use Keyword::Declare;
  2         238796  
  2         11  
8              
9 2     2   15 sub import {
10 2 50 50 2   18884 keyword with (List $expr, Block $block) {{{
  2         27  
  2         5  
11             foreach ( scalar <{$expr}> ) <{$block}>
12             }}}
13 2         101 return;
14             }
15              
16             1;
17              
18             __END__