| blib/lib/Parse/VarName.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 4 | 6 | 66.6 |
| line | true | false | branch |
|---|---|---|---|
| 53 | 0 | 20 | unless my $v = $args{'varname'} |
| 57 | 0 | 20 | unless $v =~ /\A(?: ( [A-Z][A-Z]+ | [A-Z][a-z]+ | [a-z]+ | [0-9]+ | [^A-Za-z0-9]+ ) (?{ push @res, $1; }) )+\z/gsx |
| 68 | 16 | 4 | unless ($args{'include_sep'}) |