| blib/lib/Iterator.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 19 | 22 | 86.3 |
| line | true | false | branch |
|---|---|---|---|
| 79 | 0 | 3 | if $Exception::Class::VERSION lt '1.22' |
| 90 | 14 | 14 | unless $pkg =~ /\A Iterator/x or $pkg =~ /\A Exception::Class/x |
| 108 | 2 | 14 | if substr($msg, -1, 1) eq "\n" |
| 155 | 1 | 9 | if @_ < 1 |
| 157 | 1 | 8 | if @_ > 1 |
| 160 | 2 | 6 | if ref $code ne 'CODE' |
| 172 | 0 | 6 | if ($ex = 'Iterator::X::Am_Now_Exhausted'->caught) { } |
| 0 | 6 | elsif ($@) { } | |
| 218 | 3 | 12 | if $is_exhausted{$self} |
| 229 | 3 | 9 | if (my $ex = 'Iterator::X::Am_Now_Exhausted'->caught) { } |
| 1 | 8 | elsif ($@) { } |