blib/lib/String/Tests.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 17 | 18 | 94.4 |
line | true | false | branch |
---|---|---|---|
42 | 24 | 0 | if $_[0] eq 'String::Tests' or ref $_[0] |
45 | 17 | 7 | if ($type eq 'ARRAY') { } |
3 | 4 | elsif ($type eq 'Regexp') { } | |
3 | 1 | elsif ($type eq 'CODE') { } | |
48 | 36 | 11 | if ($test_type eq 'Regexp') { } |
10 | 1 | elsif ($test_type eq 'CODE') { } | |
49 | 8 | 28 | unless $string =~ /$test/ |
51 | 5 | 5 | unless &$test($string) |
58 | 1 | 2 | if wantarray |