| blib/lib/Config/Constants.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 19 | 22 | 86.3 |
| line | true | false | branch |
|---|---|---|---|
| 25 | 1 | 32 | unless @_ |
| 27 | 12 | 20 | if ($args[0] =~ /xml|perl/) { } |
| 32 | 0 | 12 | if $@ |
| 35 | 1 | 11 | if $@ |
| 40 | 13 | 7 | if (exists $UNCHECKED_CONSTANTS{$calling_pkg}) { } |
| 47 | 11 | 9 | if exists $UNCHECKED_CONSTANTS{$calling_pkg}{$arg} |
| 52 | 0 | 13 | if keys %{$UNCHECKED_CONSTANTS{$calling_pkg};} |
| 66 | 19 | 11 | if defined &{"${calling_pkg}::$arg";} |
| 101 | 9 | 18 | if (defined &{"${module}::$name";}) { } |
| 116 | 1 | 17 | if (exists $CHECKED_CONSTANTS{$module}) { } |
| 121 | 1 | 0 | unless exists $CHECKED_CONSTANTS{$module}{$name} |