| line |
true |
false |
branch |
|
446
|
1 |
11 |
unless @args
|
|
447
|
1 |
11 |
if all sub {
/^-/;
}
, @args
|
|
450
|
0 |
12 |
if ($print_hash)
|
|
458
|
0 |
12 |
if ($print_flags)
|
|
466
|
48 |
0 |
unless $ENV{"PERL5_${_}_IS_RUNNING"}
|
|
467
|
0 |
12 |
if grep {$ENV{"PERL5_${_}_IS_RUNNING_IN_RECURSION"} unless $ENV{"PERL5_${_}_IS_RUNNING"};} 'CPANM', 'CPANP', 'CPANPLUS', 'CPAN'
|
|
483
|
3 |
9 |
if (my(@perl_version) = find_and_remove(qr/^BITMAP:perl\b/, \@args))
|
|
500
|
0 |
50 |
unless (defined $success)
|
|
501
|
0 |
0 |
unless $module ~~ \@NON_INSTADIE
|
|
506
|
0 |
0 |
if (@failed and $author_mode and not $author_load_warned++)
|
|
524
|
0 |
0 |
unless @args
|
|
525
|
0 |
0 |
if all sub {
/^-/;
}
, @args
|
|
537
|
0 |
0 |
unless defined $success or not $module =~ ~@NON_INSTADIE
|
|
543
|
0 |
50 |
unless $method =~ /^(?:un)?import$/
|
|
544
|
0 |
50 |
unless @_
|
|
552
|
767 |
9 |
if $param
|
|
557
|
0 |
50 |
if $modifier eq 'NO'
|
|
561
|
0 |
50 |
$method =~ /^un/ ? :
|
|
563
|
0 |
50 |
if $modifier eq 'XXX'
|
|
568
|
6 |
44 |
if $module =~ /^(?:open|indirect|charnames|autodie|Function::Parameters)$/
|
|
570
|
7 |
760 |
$_ eq '^V' ? :
|
|
572
|
8 |
42 |
if $module eq 'feature'
|
|
574
|
0 |
50 |
if ($module =~ /^namespace::/ and not $module eq 'namespace::functions')
|
|
577
|
0 |
0 |
if $module eq 'namespace::clean'
|
|
580
|
10 |
40 |
if ($module eq 'warnings')
|
|
602
|
4 |
6 |
if @fatal
|
|
603
|
6 |
4 |
if @nonfatal
|
|
605
|
10 |
40 |
if ($module eq 'strict')
|
|
610
|
0 |
50 |
if ($modifier eq 'BITMAP')
|
|
612
|
0 |
0 |
if ($module eq 'criticism') { }
|
|
|
0 |
0 |
elsif ($module eq 'perl') { }
|
|
619
|
3 |
47 |
if $module eq 'open'
|
|
622
|
50 |
0 |
if (eval "require $evalmodule; 1")
|
|
631
|
2 |
2 |
wantarray ? :
|
|
|
4 |
116 |
unless @$arr
|
|
632
|
0 |
116 |
unless ref $re eq 'Regexp'
|
|
636
|
1475 |
3130 |
if $$arr[$i] =~ /$re/
|
|
668
|
147 |
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) { }
|
|
669
|
20 |
127 |
$negate_bit ? :
|
|
679
|
0 |
3 |
if $flag =~ /^\x05/
|
|
683
|
0 |
3 |
if $bitmask8 <= {sign => '+', value => [0]}
|
|
686
|
6 |
18 |
if $bitmask8 & {sign => '+', value => [1]} << $bit8
|
|
691
|
0 |
0 |
unless @_ == {sign => '+', value => [1]}
|
|
706
|
0 |
10 |
$negate_bit ? :
|
|
712
|
18 |
188 |
$negate_bit ? :
|
|
|
49 |
23 |
ref $def ? :
|
|
727
|
782 |
2254 |
if $bitmask & {sign => '+', value => [1]} << $bit
|
|
739
|
0 |
0 |
if ref $flags eq 'ARRAY'
|
|
740
|
0 |
0 |
if $type eq '0'
|
|
741
|
0 |
0 |
$type eq '!' ? :
|
|
749
|
0 |
0 |
unless $type =~ /^[!¡]$/
|
|
750
|
0 |
0 |
unless $hash =~ s/^$CURRENT_HASH_VERSION//
|
|
752
|
0 |
0 |
$type eq '!' ? :
|