Branch Coverage

blib/lib/Test2/Util/Importer.pm
Criterion Covered Total %
branch 82 174 47.1


line true false branch
28 153 164 if @_ and $NUMERIC{substr $_[0], 0, 1}
31 0 164 unless $INC{$file}
33 2 162 if optimal_import($from, $caller[0], \@caller, @_)
62 0 482 if @_ and $NUMERIC{substr $_[0], 0, 1}
64 155 327 unless @_
69 155 172 unless $INC{$file}
71 0 327 if optimal_import($from, $caller[0], \@caller, @args)
99 0 356 if (ref $into) { }
0 356 elsif ($into =~ /^\d+$/) { }
112 0 356 unless $INC{$file}
114 330 26 if optimal_import($from, $into, \@caller, @args)
129 0 0 if ($from =~ /^\d+$/) { }
157 0 515 unless $params{'from'}
174 0 0 ref $proto ? :
188 0 0 ref $proto ? :
202 0 0 ref $proto ? :
223 0 515 if @$versions
225 0 515 unless @$import
227 0 515 if $self->menu($into)->{'fail'}
235 0 0 unless my $imported = $IMPORTED{$from}
239 0 0 @_ ? :
246 0 0 unless $allowed{$name}
252 0 0 unless defined *{$glob;}{$type}
273 0 0 if $INC{$from_file}
282 687 0 if $self->{'caller'}
286 0 0 if @caller and not $caller[0]->isa("Test2::Util::Importer")
287 0 0 unless @caller
316 0 2086 unless $into
320 0 2086 if $for and $for ne $into
328 0 515 unless $into
333 172 343 if (my $menu_sub = *{"${from}::IMPORTER_MENU";}{'CODE'}) { }
347 0 0 if $got{'export_gen'} and $got{'generate'}
393 0 0 if not $sig or $sig eq "&"
395 0 0 unless $do
398 162 353 if $export_gen and keys %$export_gen
407 2086 0 if $sig eq "&"
409 162 1924 if $$export_gen{"$sig$name"}
410 0 1924 if $sig eq "&" and $export_gen->{$name}
411 0 1924 if $got->{'generate'} and &$generate("$sig$name")
434 0 0 unless $new_style or keys %$exports or $from->isa("Exporter") or $INC{'Exporter.pm'} and $f_import and $f_import == \&Exporter::import
447 0 515 @$export_fail ? :
449 0 0 $sig eq '&' ? :
493 0 1717 if ref $arg eq "CODE"
494 0 1717 if $NUMERIC{substr $arg, 0, 1}
498 0 541 if @sets > 1
502 4 511 unless $is_tag or @$args or @versions
512 4 1562 if ($lead eq '!') { }
515 0 4 if ($arg eq '!') { }
526 2 0 unless @import or keys %exclude or @versions
534 157 1405 ref $args->[0] eq 'HASH' ? :
537 26 1540 if ($lead eq ":")
539 0 26 unless my $tag = $menu->{'tags'}{$arg}
543 0 26 if @$cvers
546 0 26 if $cset
552 0 26 if ($exc) { }
0 26 elsif ($spec and keys %$spec) { }
553 0 0 if not ref $_
557 0 0 if $spec->{'-as'} and @$cimp > 1
565 0 0 if $spec->{'-prefix'} and $cspec->{'-prefix'}
566 0 0 if $spec->{'-postfix'} and $cspec->{'-postfix'}
584 0 1540 if (ref $arg eq 'Regexp') { }
0 1540 elsif ($lead eq '/' and $arg =~ m[^/(.*)/$]) { }
596 198 1342 /^\W/ ? :
598 4 1536 if ($exc) { }
603 0 1536 if $spec->{'-as'} and @list > 1
620 0 0 unless my(@fail) = map({my $x = $_->[0]; $x =~ s/^&//; $x;} grep($menu->{'fail'}{$_->[0]}, @$import))
622 0 0 $from->can('export_fail') ? :
624 0 0 if (@real_fail)
643 376 0 if defined $caller->[9]
317 1 if defined $caller->[9]
655 0 1536 unless my($sig, $name) = $symbol =~ /^(\W)(.*)$/
659 162 1374 if $menu->{'generate'}
664 0 1536 unless $ref or $menu->{'lookup'}{"$sig$name"}
665 0 1536 unless $ref
668 0 1536 if $type eq "REF"
670 0 1536 if $ref and $type ne $SIG_TO_SLOT{$sig}
675 4 1532 if $$exclude{"$sig$name"} and not $spec->{'-as'}
683 0 1532 if $custom_set
686 1532 0 if $sig eq "&"
690 1532 0 if $sig eq "&"
691 0 1532 if $magic
704 0 0 unless eval qq[#line $caller->[2] "$caller->[1]"\n\$mod->VERSION(\$_) for \@versions;\n1;\n]
721 0 155 unless eval qq[#line $caller->[2] "$caller->[1]"\nrequire \$file;\n]
742 330 177 unless @args
746 0 28586 substr($_, 0, 1) eq '&' ? :
757 27654 175 !ref($_) && ($allowed{$_} || substr($_, 0, 1, '') eq '&' && $allowed{$_}) ? :
761 0 332 unless eval qq[# If the caller has redefine warnings enabled then we want to warn them if\n# their import redefines things.\nBEGIN { \${^WARNING_BITS} = \$caller->[9] if defined \$caller->[9] };\n#line $caller->[2] "$caller->[1]"\n(*{"$into\\::\$_"} = \$final{\$_}, push \@{\$Test2::Util::Importer::IMPORTED{\$into}} => \$_) for keys %final;\n1;\n]