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__ |