| line |
true |
false |
branch |
|
21
|
0 |
8 |
unless scalar(@_) % 2 |
|
26
|
0 |
8 |
unless my $array = delete $opts{'array'} |
|
29
|
0 |
8 |
unless my $split = delete $opts{'split'} |
|
35
|
0 |
8 |
if _REGEX $split and not _STRING $join |
|
64
|
14 |
37 |
if $line =~ /$fetchrx/ |
|
78
|
0 |
6 |
if ($line =~ /$existsrc/) |
|
83
|
0 |
0 |
defined $$self{'join'} ? : |
|
89
|
0 |
1 |
defined $$self{'join'} ? : |
|
106
|
1 |
1 |
if ($$self{'array'}[$i] =~ /$fetchrx/) |
|
125
|
1 |
1 |
if $line =~ /$existsrc/ |
|
136
|
0 |
3 |
unless exists $$self{'array'}[0] |
|
143
|
3 |
0 |
defined $val ? : |
|
152
|
0 |
18 |
if $$self{'index'} >= scalar @{$$self{'array'};} |
|
157
|
3 |
15 |
if ++$$self{'index'} >= scalar @{$$self{'array'};} |