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.003';
4 2     2   756 use strict;
  2         2  
  2         42  
5 2     2   5 use warnings;
  2         2  
  2         39  
6              
7 2     2   1278 use Keyword::Declare;
  2         243237  
  2         10  
8              
9 2     2   16 sub import {
10 2 50 50 2   19812 keyword with (List $expr, Block $block) {{{
  2         30  
  2         7  
11             foreach ( scalar <{$expr}> ) <{$block}>
12             }}}
13 2         105 return;
14             }
15              
16             1;
17              
18             __END__