| line |
true |
false |
branch |
|
96
|
1 |
1 |
if (defined $val) |
|
138
|
2 |
9 |
unless (defined $val) |
|
143
|
5 |
4 |
if ($val =~ /\S/su) |
|
183
|
1 |
4 |
unless (defined $s) |
|
204
|
1 |
1 |
unless (defined $s) |
|
216
|
1 |
1 |
unless (defined $s) |
|
252
|
2 |
1 |
if (defined $val) |
|
283
|
1 |
1 |
if (defined $val) { } |
|
313
|
0 |
1 |
unless (defined $str) |
|
370
|
4 |
0 |
if (defined $val) |
|
371
|
3 |
1 |
unless my $found = $val =~ s/^\`(.*)\`$/$1/su or $val =~ s/^\"(.*)\"$/$1/su |
|
375
|
0 |
4 |
if ($opts{'braces'} and not $found) |
|
376
|
0 |
0 |
unless $val =~ s/^\[(.*)\]$/$1/su or $val =~ s/^\((.*)\)$/$1/su |
|
440
|
4 |
4 |
if (defined $str1 and defined $str2) |
|
445
|
2 |
0 |
unless (defined $str1 or defined $str2) |
|
474
|
2 |
2 |
eqq(@_) ? : |
|
540
|
0 |
0 |
if (not $opts{'convert_spaces'} and $char =~ /^\s$/su) |
|
544
|
0 |
0 |
unless ($opts{'alpha_nums'}) |
|
545
|
0 |
0 |
if ($char =~ /^[a-z0-9]$/isu) |
|
552
|
0 |
0 |
if ($show_chars) |
|
618
|
1 |
4 |
unless (defined $str) |
|
622
|
0 |
4 |
unless ($substr) |
|
648
|
1 |
4 |
unless (defined $str) |
|
652
|
0 |
4 |
unless ($substr) |
|
678
|
1 |
4 |
unless (defined $str) |
|
682
|
0 |
4 |
unless ($substr) |
|
712
|
1 |
2 |
unless (defined $str) |
|
747
|
0 |
4 |
unless (defined $str) |
|
785
|
0 |
2 |
unless open my $fh, "<", $file |
|
788
|
1 |
1 |
if ($ret_array) { } |