| line |
true |
false |
branch |
|
457
|
1 |
11 |
unless @args
|
|
458
|
1 |
11 |
if all sub {
/^-/;
}
, @args
|
|
461
|
0 |
12 |
if ($print_hash)
|
|
469
|
0 |
12 |
if ($print_flags)
|
|
477
|
48 |
0 |
unless $ENV{"PERL5_${_}_IS_RUNNING"}
|
|
478
|
0 |
12 |
if grep {$ENV{"PERL5_${_}_IS_RUNNING_IN_RECURSION"} unless $ENV{"PERL5_${_}_IS_RUNNING"};} 'CPANM', 'CPANP', 'CPANPLUS', 'CPAN'
|
|
494
|
3 |
9 |
if (my(@perl_version) = find_and_remove(qr/^BITMAP:perl\b/, \@args))
|
|
511
|
3 |
47 |
unless (defined $success)
|
|
512
|
0 |
3 |
unless $module ~~ \@NON_INSTADIE
|
|
517
|
0 |
3 |
if (@failed and $author_mode and not $author_load_warned++)
|
|
535
|
0 |
0 |
unless @args
|
|
536
|
0 |
0 |
if all sub {
/^-/;
}
, @args
|
|
548
|
0 |
0 |
unless defined $success or not $module =~ ~@NON_INSTADIE
|
|
554
|
0 |
50 |
unless $method =~ /^(?:un)?import$/
|
|
555
|
0 |
50 |
unless @_
|
|
563
|
823 |
9 |
if $param
|
|
568
|
0 |
50 |
if $modifier eq 'NO'
|
|
572
|
0 |
50 |
$method =~ /^un/ ? :
|
|
574
|
0 |
50 |
if $modifier eq 'XXX'
|
|
579
|
6 |
44 |
if $module =~ /^(?:open|indirect|charnames|autodie|Function::Parameters)$/
|
|
581
|
4 |
819 |
$_ eq '^V' ? :
|
|
583
|
8 |
42 |
if $module eq 'feature'
|
|
585
|
0 |
50 |
if ($module =~ /^namespace::/ and not $module eq 'namespace::functions')
|
|
588
|
0 |
0 |
if $module eq 'namespace::clean'
|
|
591
|
10 |
40 |
if ($module eq 'warnings')
|
|
613
|
4 |
6 |
if @fatal
|
|
614
|
6 |
4 |
if @nonfatal
|
|
616
|
10 |
40 |
if ($module eq 'strict')
|
|
621
|
0 |
50 |
if ($modifier eq 'BITMAP')
|
|
623
|
0 |
0 |
if ($module eq 'criticism') { }
|
|
|
0 |
0 |
elsif ($module eq 'perl') { }
|
|
630
|
3 |
47 |
if $module eq 'open'
|
|
633
|
47 |
3 |
if (eval "require $evalmodule; 1")
|
|
642
|
2 |
2 |
wantarray ? :
|
|
|
4 |
116 |
unless @$arr
|
|
643
|
0 |
116 |
unless ref $re eq 'Regexp'
|
|
647
|
1587 |
3343 |
if $$arr[$i] =~ /$re/
|
|
679
|
153 |
85 |
if (defined $bit) { }
|
|
|
3 |
82 |
elsif ($flag =~ /^(?| # branch reset (look it up)
v? 5\. (?<major>\d+) (?:\.(?<minor>\d+))? |
\x05(?<major>.)(?<minor>.)?
)$/x) { }
|
|
|
0 |
82 |
elsif ($flag =~ /^[!¡]/) { }
|
|
|
0 |
82 |
elsif ($flag =~ /^\xC2\xA1/) { }
|
|
|
10 |
72 |
elsif ($flag =~ /^\d+$/) { }
|
|
|
72 |
0 |
elsif (defined $def) { }
|
|
680
|
20 |
133 |
$negate_bit ? :
|
|
690
|
0 |
3 |
if $flag =~ /^\x05/
|
|
694
|
0 |
3 |
if $bitmask8 <= {sign => '+', value => [0]}
|
|
697
|
6 |
18 |
if $bitmask8 & {sign => '+', value => [1]} << $bit8
|
|
702
|
0 |
0 |
unless @_ == {sign => '+', value => [1]}
|
|
717
|
0 |
10 |
$negate_bit ? :
|
|
723
|
18 |
194 |
$negate_bit ? :
|
|
|
52 |
20 |
ref $def ? :
|
|
738
|
838 |
2198 |
if $bitmask & {sign => '+', value => [1]} << $bit
|
|
750
|
0 |
0 |
if ref $flags eq 'ARRAY'
|
|
751
|
0 |
0 |
if $type eq '0'
|
|
752
|
0 |
0 |
$type eq '!' ? :
|
|
760
|
0 |
0 |
unless $type =~ /^[!¡]$/
|
|
761
|
0 |
0 |
unless $hash =~ s/^$CURRENT_HASH_VERSION//
|
|
763
|
0 |
0 |
$type eq '!' ? :
|