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.001';
4 2     2   831 use strict;
  2         3  
  2         43  
5 2     2   5 use warnings;
  2         2  
  2         34  
6              
7 2     2   1199 use Keyword::Declare;
  2         251190  
  2         13  
8              
9 2     2   22 sub import {
10 2 50 50 2   20731 keyword with (List $expr, Block $block) {{{
  2         41  
  2         10  
11             foreach ( scalar <{$expr}> ) <{$block}>
12             }}}
13 2         134 return;
14             }
15              
16             1;
17              
18             __END__