| line | % | coverage | branch |
|---|
| 21 | 100 | T | F | if index('-:', substr($name, 0, 1)) == -1 |
| 36 | 100 | T | F | if (my $group_name = _group_name($groups[$i][0])) { } |
| 43 | 50 | T | F | unless my(%merge) = %$merge |
| 49 | 0 | T | F | if (&Params::Util::_CODELIKE($groups[$i][1]) or &Params::Util::_SCALAR0($groups[$i][1])) { } |
| 57 | 0 | T | F | $groups[$i][1]{-'as'} ? : |
| 0 | T | F | ref $groups[$i][1]{-'as'} ? : |
| 78 | 50 | T | F | unless exists $$config{'groups'}{$group_name} |
| 81 | 50 | T | F | if $$seen{$group_name}++ |
| 83 | 50 | T | F | if (ref $group_arg) |
| 86 | 0 | T | F | $prefix ? : |
| 0 | T | F | $suffix ? : |
| 96 | 50 | T | F | if (&Params::Util::_CODELIKE($exports) or &Params::Util::_SCALAR0($exports)) { } |
| 104 | 0 | T | F | $merge ? : |
| 108 | 0 | T | F | &Params::Util::_CODELIKE($exports) ? : |
| 112 | 0 | T | F | if ref $group ne 'HASH' |
| 138 | 50 | T | F | if $seen{$name}++ |
| 141 | 50 | T | F | if (ref(my $hook = $$config{'collectors'}{$name})) |
| 151 | 50 | T | F | if (&Params::Util::_SCALAR0($hook)) { } |
| 152 | 0 | T | F | unless $class->$$hook($value, $arg) |
| 154 | 50 | T | F | unless &$hook($value, $arg) |
| 172 | 50 | T | F | if $$config{'collectors'}{'INIT'} |
| 187 | 50 | T | F | if exists $$config{'into'} and exists $$config{'into_level'} |
| 191 | 50 | T | F | exists $$config{'into_level'} ? : |
| 50 | T | F | exists $$config{'into'} ? : |
| 228 | 0 | T | F | if $reserved_name ne 'INIT' |
| 236 | 50 | T | F | if (my(@keys) = grep({not exists $valid_config_key{$_};} keys %$config)) |
| 240 | 50 | T | F | if exists $$config{'into'} and exists $$config{'into_level'} |
| 244 | 50 | T | F | if ($$config{'exporter'}) |
| 249 | 50 | T | F | if exists $$config{'into'} and exists $$config{'into_level'} |
| 262 | 50 | T | F | if (my(@names) = _key_intersection(@$config{'exports', 'collectors'})) |
| 296 | 50 | T | F | ref $_[0] ? : |
| 297 | 50 | T | F | if exists $$special{'into'} and exists $$special{'into_level'} |
| 300 | 50 | T | F | if ($$special{'exporter'}) |
| 305 | 50 | T | F | defined $$config{'into_level'} ? : |
| 50 | T | F | defined $$config{'into'} ? : |
| 50 | T | F | defined $$special{'into_level'} ? : |
| 50 | T | F | defined $$special{'into'} ? : |
| 319 | 100 | T | F | unless @$import_args |
| 352 | 50 | T | F | if ($import_arg and &Params::Util::_CODELIKE($import_arg)) { } |
| 357 | 100 | T | F | $import_arg ? : |
| 359 | 50 | T | F | unless exists $$arg{'config'}{'exports'}{$name} |
| 364 | 100 | T | F | exists $$import_arg{-'as'} ? : |
| 410 | 100 | T | F | unless (defined $generator) |
| 411 | 50 | T | F | unless my $code = $class->can($name) |
| 419 | 50 | T | F | if &Params::Util::_CODELIKE($generator) |
| 437 | 50 | T | F | if (ref $as eq 'SCALAR') { } |
| 50 | T | F | elsif (ref $as) { } |
| 471 | 50 | T | F | if (ref $value eq 'HASH') { } |
| 0 | T | F | elsif (ref $value eq 'ARRAY') { } |