blib/lib/String/Util.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 17 | 42 | 40.4 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
406 | 4 | 0 | 0 | $opts{'braces'} and not $found |
431 | 0 | 0 | 0 | ref $val and overload::Overloaded($val) |
617 | 0 | 0 | 0 | defined $opts{'encode'} and not $opts{'encode'} |
649 | 0 | 20 | 3 | $opts{'strip_vowels'} and $char =~ /[aeiouy]/i |
690 | 2 | 2 | 4 | defined $str1 and defined $str2 |
832 | 0 | 0 | 0 | not $opts{'convert_spaces'} and $char =~ /^\s$/s |
line | l | !l | condition |
---|---|---|---|
905 | 4 | 0 | shift() || '' |
929 | 4 | 0 | shift() || '' |
977 | 4 | 0 | shift() || '' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
193 | 1 | 0 | 4 | not defined $s or length $s == 0 |
214 | 0 | 0 | 1 | not defined $s or length $s == 0 |
226 | 0 | 0 | 1 | not defined $s or length $s == 0 |
402 | 0 | 1 | 3 | my $found = $val =~ s/^\`(.*)\`$/$1/s or $val =~ s/^\"(.*)\"$/$1/s |
407 | 0 | 0 | 0 | $val =~ s/^\[(.*)\]$/$1/s or $val =~ s/^\((.*)\)$/$1/s |
695 | 2 | 0 | 2 | defined $str1 or defined $str2 |