| blib/lib/ctflags.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 18 | 55.5 |
| line | true | false | branch |
|---|---|---|---|
| 23 | 0 | 4 | if ($@) |
| 28 | 0 | 7 | if ($@) |
| 40 | 0 | 4 | if $flags eq '*' |
| 84 | 0 | 6 | if ($sub) { } |
| 105 | 4 | 1 | if (my($name, $ns, $flags) = $key =~ m[^ # all the string should match. (?:($ctflags::identifier_re)=)? # name for the constant, optional. ($ctflags::ns_re) # namespace. : # namespace/flags separator ':' ( \* # asterisk | # or (?:$ctflags::flag_re # flag name $ctflags::value_re?) # maybe with default value, * # several allowed )$ ]ox) { } |
| 1 | 0 | elsif ($key eq 'prefix') { } | |
| 0 | 0 | elsif ($key eq 'package') { } | |
| 119 | 2 | 2 | if ($name) { } |
| 139 | 0 | 4 | if ($@) |