| line |
true |
false |
branch |
|
63
|
1 |
13 |
unless defined $str |
|
67
|
4 |
9 |
if (not $ref) { } |
|
|
4 |
5 |
elsif ($ref eq 'ARRAY') { } |
|
|
2 |
3 |
elsif ($ref eq 'Regexp') { } |
|
|
2 |
1 |
elsif ($ref eq 'CODE') { } |
|
68
|
1 |
3 |
$args{'ignore_case'} ? : |
|
70
|
1 |
3 |
if ($args{'ignore_case'}) { } |
|
73
|
1 |
1 |
if $lc eq lc $_ |
|
77
|
1 |
5 |
if $str eq $_ |
|
84
|
1 |
1 |
&$matcher($str) ? : |
|
140
|
5 |
4 |
if ($ref eq 'ARRAY') { } |
|
|
1 |
3 |
elsif (not $ref) { } |
|
|
2 |
1 |
elsif ($ref eq 'Regexp') { } |
|
142
|
2 |
7 |
if (ref $_ eq 'Regexp') { } |
|
143
|
1 |
1 |
if $needle =~ /$_/ |
|
145
|
2 |
5 |
if $needle eq $_ |
|
182
|
1 |
3 |
if (ref $substr eq 'Regexp') { } |