| line |
true |
false |
branch |
|
405
|
222 |
286 |
if index("-:", substr($name, 0, 1)) == -1 |
|
420
|
129 |
222 |
if (my $group_name = _group_name($groups[$i][0])) { } |
|
427
|
150 |
72 |
unless my(%merge) = %$merge |
|
433
|
14 |
58 |
if (&Params::Util::_CODELIKE($groups[$i][1]) or &Params::Util::_SCALAR0($groups[$i][1])) { } |
|
443
|
16 |
40 |
$groups[$i][1]{'-as'} ? : |
|
|
2 |
56 |
ref $groups[$i][1]{'-as'} ? : |
|
463
|
1 |
156 |
unless exists $config->{'groups'}{$group_name} |
|
465
|
6 |
150 |
if $seen->{$group_name}++ |
|
467
|
73 |
77 |
if (ref $group_arg) |
|
470
|
48 |
25 |
$prefix ? : |
|
|
28 |
45 |
$suffix ? : |
|
480
|
14 |
136 |
if (&Params::Util::_CODELIKE($exports) or &Params::Util::_SCALAR0($exports)) { } |
|
488
|
14 |
0 |
$merge ? : |
|
492
|
12 |
2 |
&Params::Util::_CODELIKE($exports) ? : |
|
496
|
1 |
13 |
if ref $group ne "HASH" |
|
523
|
1 |
36 |
if $seen{$name}++ |
|
525
|
30 |
6 |
if (ref(my $hook = $config->{'collectors'}{$name})) |
|
535
|
2 |
28 |
if (&Params::Util::_SCALAR0($hook)) { } |
|
536
|
1 |
1 |
unless $class->$$hook($value, $arg) |
|
538
|
5 |
23 |
unless &$hook($value, $arg) |
|
556
|
2 |
111 |
if $config->{'collectors'}{'INIT'} |
|
596
|
1 |
2 |
if exists $config->{'into'} and exists $config->{'into_level'} |
|
602
|
1 |
19 |
exists $config->{'into_level'} ? : |
|
|
2 |
20 |
exists $config->{'into'} ? : |
|
646
|
0 |
0 |
if $reserved_name ne "INIT" |
|
654
|
1 |
52 |
if (my(@keys) = grep({not exists $valid_config_key{$_};} keys %$config)) |
|
659
|
1 |
1 |
if exists $config->{'into'} and exists $config->{'into_level'} |
|
662
|
0 |
51 |
if ($config->{'exporter'}) |
|
668
|
0 |
1 |
if exists $config->{'into'} and exists $config->{'into_level'} |
|
680
|
1 |
50 |
if (my(@names) = _key_intersection(@$config{"exports", "collectors"})) |
|
714
|
13 |
92 |
ref $_[0] ? : |
|
716
|
1 |
2 |
if exists $special->{'into'} and exists $special->{'into_level'} |
|
718
|
0 |
104 |
if ($special->{'exporter'}) |
|
728
|
1 |
99 |
defined $config->{'into_level'} ? : |
|
|
1 |
100 |
defined $config->{'into'} ? : |
|
|
1 |
101 |
defined $special->{'into_level'} ? : |
|
|
2 |
102 |
defined $special->{'into'} ? : |
|
737
|
24 |
80 |
unless @$import_args |
|
770
|
10 |
126 |
if ($import_arg and &Params::Util::_CODELIKE($import_arg)) { } |
|
775
|
69 |
57 |
$import_arg ? : |
|
778
|
1 |
125 |
unless exists $arg->{'config'}{'exports'}{$name} |
|
782
|
60 |
65 |
exists $import_arg->{'-as'} ? : |
|
846
|
39 |
68 |
unless (defined $generator) |
|
847
|
2 |
37 |
unless my $code = $class->can($name) |
|
856
|
66 |
2 |
if &Params::Util::_CODELIKE($generator) |
|
890
|
2 |
103 |
if (ref $as eq 'SCALAR') { } |
|
|
2 |
101 |
elsif (ref $as) { } |
|
947
|
14 |
4 |
if (ref $value eq 'HASH') { } |
|
|
2 |
2 |
elsif (ref $value eq 'ARRAY') { } |