| 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)
|