| line |
true |
false |
branch |
|
102
|
1 |
1 |
if (defined $val) |
|
147
|
2 |
9 |
unless (defined $val) |
|
152
|
5 |
4 |
if ($val =~ /\S/s) |
|
193
|
1 |
4 |
if (not defined $s or length $s == 0) |
|
214
|
0 |
1 |
if (not defined $s or length $s == 0) |
|
226
|
0 |
1 |
if (not defined $s or length $s == 0) |
|
262
|
2 |
1 |
if (defined $val) |
|
293
|
1 |
1 |
if (defined $val) { } |
|
319
|
0 |
0 |
if (hascontent($val)) { } |
|
401
|
4 |
0 |
if (defined $val) |
|
402
|
3 |
1 |
unless my $found = $val =~ s/^\`(.*)\`$/$1/s or $val =~ s/^\"(.*)\"$/$1/s |
|
406
|
0 |
4 |
if ($opts{'braces'} and not $found) |
|
407
|
0 |
0 |
unless $val =~ s/^\[(.*)\]$/$1/s or $val =~ s/^\((.*)\)$/$1/s |
|
431
|
0 |
0 |
if (ref $val and overload::Overloaded($val)) |
|
436
|
0 |
0 |
unless defined $val |
|
573
|
0 |
1 |
unless defined $count |
|
576
|
0 |
1 |
if ($count =~ /^dict/is) |
|
594
|
0 |
0 |
unless ($line_num =~ /^([0-9]+)$/s) |
|
605
|
0 |
0 |
if ($opts{'letters_only'}) |
|
606
|
0 |
0 |
unless ($word =~ /^[a-z]+$/s) |
|
611
|
0 |
0 |
if ($opts{'maxlength'}) |
|
612
|
0 |
0 |
if (length $word > $opts{'maxlength'}) |
|
617
|
0 |
0 |
unless (defined $opts{'encode'} and not $opts{'encode'}) |
|
626
|
0 |
1 |
if ($opts{'alpha'}) { } |
|
634
|
1 |
0 |
unless defined $opts{'strip_vowels'} |
|
640
|
0 |
23 |
if ($opts{'numerals'}) { } |
|
649
|
3 |
20 |
if $opts{'strip_vowels'} and $char =~ /[aeiouy]/i |
|
690
|
4 |
4 |
if (defined $str1 and defined $str2) |
|
695
|
2 |
0 |
unless (defined $str1 or defined $str2) |
|
727
|
2 |
2 |
eqq(@_) ? : |
|
731
|
0 |
0 |
eqq(@_) ? : |
|
746
|
0 |
0 |
if defined $line |
|
747
|
0 |
0 |
if defined wantarray |
|
832
|
0 |
0 |
if (not $opts{'convert_spaces'} and $char =~ /^\s$/s) |
|
836
|
0 |
0 |
unless ($opts{'alpha_nums'}) |
|
837
|
0 |
0 |
if ($char =~ /^[a-z0-9]$/is) |
|
844
|
0 |
0 |
if ($show_chars) |
|
908
|
0 |
4 |
unless ($substr) |
|
932
|
0 |
4 |
unless ($substr) |
|
980
|
0 |
4 |
unless ($substr) |
|
1036
|
0 |
2 |
unless open my $fh, '<', $file |
|
1043
|
1 |
1 |
if ($ret_array) |