| line |
true |
false |
branch |
|
98
|
1 |
1 |
if (defined $val) |
|
140
|
2 |
9 |
unless (defined $val) |
|
145
|
5 |
4 |
if ($val =~ /\S/su) |
|
185
|
1 |
4 |
unless (defined $s) |
|
206
|
1 |
1 |
unless (defined $s) |
|
218
|
1 |
1 |
unless (defined $s) |
|
254
|
2 |
1 |
if (defined $val) |
|
285
|
1 |
1 |
if (defined $val) { } |
|
315
|
0 |
1 |
unless (defined $str) |
|
372
|
4 |
0 |
if (defined $val) |
|
373
|
3 |
1 |
unless my $found = $val =~ s/^\`(.*)\`$/$1/su or $val =~ s/^\"(.*)\"$/$1/su |
|
377
|
0 |
4 |
if ($opts{'braces'} and not $found) |
|
378
|
0 |
0 |
unless $val =~ s/^\[(.*)\]$/$1/su or $val =~ s/^\((.*)\)$/$1/su |
|
442
|
4 |
4 |
if (defined $str1 and defined $str2) |
|
447
|
2 |
0 |
unless (defined $str1 or defined $str2) |
|
476
|
2 |
2 |
eqq(@_) ? : |
|
542
|
0 |
0 |
if (not $opts{'convert_spaces'} and $char =~ /^\s$/su) |
|
546
|
0 |
0 |
unless ($opts{'alpha_nums'}) |
|
547
|
0 |
0 |
if ($char =~ /^[a-z0-9]$/isu) |
|
554
|
0 |
0 |
if ($show_chars) |
|
624
|
1 |
11 |
if (scalar @_ == 1) |
|
629
|
5 |
7 |
unless (defined $str and defined $substr) |
|
658
|
1 |
11 |
if (scalar @_ == 1) |
|
663
|
5 |
7 |
unless (defined $str and defined $substr) |
|
692
|
1 |
11 |
if (scalar @_ == 1) |
|
697
|
5 |
7 |
unless (defined $str and defined $substr) |
|
726
|
1 |
2 |
unless (defined $str) |
|
761
|
0 |
4 |
unless (defined $str) |
|
799
|
0 |
2 |
unless open my $fh, "<", $file |
|
802
|
1 |
1 |
if ($ret_array) { } |
|
837
|
2 |
5 |
unless (defined $needle and defined $haystack) |
|
838
|
0 |
5 |
if ($haystack eq "" or $needle eq "") |
|
846
|
5 |
5 |
if ($pos < 0) |