| line |
true |
false |
branch |
|
404
|
222 |
286 |
if index("-:", substr($name, 0, 1)) == -1 |
|
419
|
129 |
222 |
if (my $group_name = _group_name($groups[$i][0])) { } |
|
426
|
150 |
72 |
unless my(%merge) = %$merge |
|
432
|
14 |
58 |
if (&Params::Util::_CODELIKE($groups[$i][1]) or &Params::Util::_SCALAR0($groups[$i][1])) { } |
|
442
|
16 |
40 |
$groups[$i][1]{'-as'} ? : |
|
|
2 |
56 |
ref $groups[$i][1]{'-as'} ? : |
|
462
|
1 |
156 |
unless exists $config->{'groups'}{$group_name} |
|
464
|
6 |
150 |
if $seen->{$group_name}++ |
|
466
|
73 |
77 |
if (ref $group_arg) |
|
469
|
48 |
25 |
$prefix ? : |
|
|
28 |
45 |
$suffix ? : |
|
479
|
14 |
136 |
if (&Params::Util::_CODELIKE($exports) or &Params::Util::_SCALAR0($exports)) { } |
|
487
|
14 |
0 |
$merge ? : |
|
491
|
12 |
2 |
&Params::Util::_CODELIKE($exports) ? : |
|
495
|
1 |
13 |
if ref $group ne "HASH" |
|
522
|
1 |
36 |
if $seen{$name}++ |
|
524
|
30 |
6 |
if (ref(my $hook = $config->{'collectors'}{$name})) |
|
534
|
2 |
28 |
if (&Params::Util::_SCALAR0($hook)) { } |
|
535
|
1 |
1 |
unless $class->$$hook($value, $arg) |
|
537
|
5 |
23 |
unless &$hook($value, $arg) |
|
555
|
2 |
111 |
if $config->{'collectors'}{'INIT'} |
|
595
|
1 |
2 |
if exists $config->{'into'} and exists $config->{'into_level'} |
|
601
|
1 |
19 |
exists $config->{'into_level'} ? : |
|
|
2 |
20 |
exists $config->{'into'} ? : |
|
645
|
0 |
0 |
if $reserved_name ne "INIT" |
|
653
|
1 |
52 |
if (my(@keys) = grep({not exists $valid_config_key{$_};} keys %$config)) |
|
658
|
1 |
1 |
if exists $config->{'into'} and exists $config->{'into_level'} |
|
661
|
0 |
51 |
if ($config->{'exporter'}) |
|
667
|
0 |
1 |
if exists $config->{'into'} and exists $config->{'into_level'} |
|
679
|
1 |
50 |
if (my(@names) = _key_intersection(@$config{"exports", "collectors"})) |
|
713
|
13 |
92 |
ref $_[0] ? : |
|
715
|
1 |
2 |
if exists $special->{'into'} and exists $special->{'into_level'} |
|
717
|
0 |
104 |
if ($special->{'exporter'}) |
|
727
|
1 |
99 |
defined $config->{'into_level'} ? : |
|
|
1 |
100 |
defined $config->{'into'} ? : |
|
|
1 |
101 |
defined $special->{'into_level'} ? : |
|
|
2 |
102 |
defined $special->{'into'} ? : |
|
736
|
24 |
80 |
unless @$import_args |
|
769
|
10 |
126 |
if ($import_arg and &Params::Util::_CODELIKE($import_arg)) { } |
|
774
|
69 |
57 |
$import_arg ? : |
|
777
|
1 |
125 |
unless exists $arg->{'config'}{'exports'}{$name} |
|
781
|
60 |
65 |
exists $import_arg->{'-as'} ? : |
|
845
|
39 |
68 |
unless (defined $generator) |
|
846
|
2 |
37 |
unless my $code = $class->can($name) |
|
855
|
66 |
2 |
if &Params::Util::_CODELIKE($generator) |
|
889
|
2 |
103 |
if (ref $as eq 'SCALAR') { } |
|
|
2 |
101 |
elsif (ref $as) { } |
|
946
|
14 |
4 |
if (ref $value eq 'HASH') { } |
|
|
2 |
2 |
elsif (ref $value eq 'ARRAY') { } |