Branch Coverage

blib/lib/Sub/Exporter.pm
Criterion Covered Total %
branch 92 98 93.8


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') { }