blib/lib/String/Substrings.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 10 | 10 | 100.0 |
line | true | false | branch |
---|---|---|---|
27 | 1 | 254 | unless defined $string |
30 | 2 | 252 | if (my $r = ref $string) |
34 | 4 | 121 | if (defined $length and (my $r = ref $length) || !($length =~ /^\d+/)) |
42 | 121 | 127 | if (defined $length) { } |
43 | 6 | 115 | if $length == 0 |