| line |
true |
false |
branch |
|
111
|
139 |
83 |
grep({$flavors{$_};} @_) ? :
|
|
127
|
0 |
0 |
defined &DynaLoader::boot_DynaLoader ? :
|
|
152
|
0 |
9 |
if ($^O eq "VMS")
|
|
155
|
0 |
0 |
if scalar $syms->getsym(uc $command)
|
|
160
|
0 |
9 |
if ('File::Spec'->file_name_is_absolute($command)) { }
|
|
168
|
9 |
81 |
unless $dir and -d $dir
|
|
169
|
0 |
81 |
$self->os_flavor_is('Win32') ? :
|
|
170
|
0 |
81 |
if $abs = $self->maybe_command($abs)
|
|
173
|
0 |
9 |
if wantarray
|
|
189
|
0 |
0 |
unless $self->os_flavor_is("Unix") or $self->os_flavor_is("Win32") and not $self->os_flavor_is("Win9x")
|
|
214
|
548 |
35 |
if defined $maketype2true{$type}
|
|
216
|
1 |
34 |
if $make_basename =~ /\b$type\b/i
|
|
218
|
1 |
33 |
if $make_basename =~ /\b[gdn]make\b/i
|
|
221
|
33 |
0 |
$self->can_redirect_error ? :
|
|
224
|
2 |
31 |
if $type eq "gmake" and $minus_v =~ /GNU make/i
|
|
226
|
0 |
31 |
if $type eq "bsdmake" and $minus_v =~ /^usage: make \[-BeikNnqrstWwX\]/im
|
|
246
|
0 |
2 |
if defined $cached_dep_space
|
|
247
|
2 |
0 |
if $self->is_make_type("gmake")
|
|
248
|
0 |
0 |
if $self->is_make_type("dmake")
|
|
249
|
0 |
0 |
if $self->is_make_type("bsdmake")
|
|
268
|
0 |
429 |
if $arg =~ / / and not $self->can_dep_space
|
|
307
|
315 |
760 |
unless @args
|
|
324
|
765 |
2300 |
if (not length $arg_str) { }
|
|
|
5 |
2295 |
elsif (length($arg_str) + length($next_arg_str) > $len_left) { }
|
|
348
|
1055 |
2 |
defined $self->{$1} ? :
|
|
409
|
6 |
419 |
unless (ref $opts)
|
|
413
|
7 |
418 |
unless defined $opts->{'allow_variables'}
|
|
418
|
425 |
0 |
if ($file)
|
|
419
|
2 |
423 |
$opts->{'append'} ? :
|
|
668
|
0 |
153 |
if ($self->{'XSMULTI'})
|
|
672
|
0 |
0 |
if $d[0] eq "lib"
|
|
734
|
0 |
153 |
if ($attribs{'FILES'})
|
|
738
|
0 |
0 |
ref $attribs{'FILES'} ? :
|
|
754
|
0 |
153 |
if ($^O eq 'vos') { }
|
|
780
|
0 |
153 |
if $attribs{'POSTOP'}
|
|
799
|
97 |
56 |
unless @{$self->{'DIR'};}
|
|
868
|
0 |
96 |
$self->{'NO_META'} ? :
|
|
869
|
96 |
0 |
!$self->{'SIGN'} ? :
|
|
956
|
0 |
0 |
if ($self->{'XSMULTI'}) { }
|
|
960
|
0 |
0 |
if $parts[0] eq "lib"
|
|
1024
|
0 |
0 |
if defined $extra
|
|
1094
|
306 |
0 |
"$]" > 5.008 ? :
|
|
1100
|
130 |
23 |
unless @man_cmds
|
|
1109
|
706 |
17 |
if defined $has_cpan_meta
|
|
1132
|
28 |
132 |
if $self->{'NO_META'} or not _has_cpan_meta()
|
|
1185
|
0 |
256 |
unless _has_cpan_meta()
|
|
1190
|
8 |
248 |
if ($bad_version)
|
|
1197
|
4 |
252 |
unless $validator2->is_valid
|
|
1204
|
256 |
0 |
unless $validator14->is_valid
|
|
1208
|
519 |
1 |
unless $key
|
|
1214
|
0 |
1 |
unless $validator14->custom_1($new_key)
|
|
1217
|
1 |
0 |
if $validator14->custom_1($new_key)
|
|
1227
|
0 |
256 |
if $@ and not $@ =~ /encountered CODE.*, but JSON can only represent references to arrays or hashes/
|
|
1232
|
0 |
256 |
unless ($meta and eval {
|
|
1240
|
2 |
0 |
if ($self->{'LICENSE'} and $self->{'LICENSE'} ne "unknown" and @{$now_license;} == 1 and $now_license->[0] eq "unknown")
|
|
1275
|
1 |
14 |
if (ref $h->{$k} eq 'ARRAY') { }
|
|
|
7 |
7 |
elsif (ref $h->{$k} eq 'HASH') { }
|
|
1276
|
1 |
0 |
ref $v ? :
|
|
1305
|
2 |
298 |
$version =~ /_/ ? :
|
|
1318
|
13 |
287 |
defined $self->{'AUTHOR'} ? :
|
|
1326
|
0 |
300 |
unless (eval {
|
|
1335
|
300 |
300 |
$frag == $meta_add ? :
|
|
1343
|
3 |
303 |
if ($v1_add and $key eq 'prereqs') { }
|
|
|
3 |
300 |
elsif ($key ne 'meta-spec') { }
|
|
1351
|
300 |
6 |
if $key eq "meta-spec"
|
|
1369
|
6 |
449 |
$self->{'ARGS'}{'CONFIGURE_REQUIRES'} ? :
|
|
1372
|
6 |
449 |
$self->{'ARGS'}{'BUILD_REQUIRES'} ? :
|
|
1374
|
6 |
449 |
if $self->{'ARGS'}{'TEST_REQUIRES'}
|
|
1376
|
92 |
363 |
if $self->{'ARGS'}{'PREREQ_PM'}
|
|
1378
|
18 |
437 |
if $self->{'MIN_PERL_VERSION'}
|
|
1386
|
10 |
890 |
if defined $meta->{'meta-spec'} and defined $meta->{'meta-spec'}{'version'}
|
|
1394
|
0 |
0 |
if ($self->{'ARGS'}{'CONFIGURE_REQUIRES'}) { }
|
|
1401
|
0 |
0 |
if ($self->{'ARGS'}{'BUILD_REQUIRES'}) { }
|
|
1408
|
0 |
0 |
if ($self->{'ARGS'}{'TEST_REQUIRES'})
|
|
1415
|
0 |
0 |
if defined $self->{'PREREQ_PM'}
|
|
1417
|
0 |
0 |
if $self->{'MIN_PERL_VERSION'}
|
|
1423
|
1 |
317 |
unless defined $version
|
|
1425
|
4 |
314 |
if (ref $version eq 'version') { }
|
|
|
0 |
314 |
elsif ($version =~ /^[^v][^.]*\.[^.]+\./) { }
|
|
1470
|
0 |
31 |
unless ref $_[0] eq "HASH"
|
|
1479
|
14 |
17 |
exists $options->{'key_sort'} ? :
|
|
1480
|
17 |
14 |
if ($k_sort) { }
|
|
1481
|
0 |
17 |
unless ref $k_sort eq "CODE"
|
|
1487
|
14 |
17 |
$options->{'use_header'} ? :
|
|
1500
|
2 |
104 |
unless defined $val
|
|
1501
|
18 |
88 |
if (ref $val eq 'HASH') { }
|
|
|
7 |
81 |
elsif (ref $val eq 'ARRAY') { }
|
|
|
1 |
80 |
elsif (ref $val and not blessed($val)) { }
|
|
1502
|
17 |
1 |
if (keys %$val) { }
|
|
1508
|
0 |
17 |
if (exists $customs->{$key})
|
|
1511
|
0 |
0 |
if exists $k_custom{$k}
|
|
1522
|
6 |
1 |
if (@$val) { }
|
|
1526
|
1 |
9 |
if ref $_
|
|
1636
|
151 |
4 |
unless ($mymeta)
|
|
1657
|
28 |
127 |
unless _has_cpan_meta()
|
|
1661
|
369 |
4 |
unless -e $file
|
|
1665
|
4 |
0 |
if $meta
|
|
1667
|
123 |
4 |
unless $meta
|
|
1672
|
4 |
0 |
if ($meta->{'generated_by'} and $meta->{'generated_by'} =~ /ExtUtils::MakeMaker version ([\d\._]+)/)
|
|
1675
|
0 |
4 |
if ($eummv < "6.2501")
|
|
1695
|
28 |
124 |
unless _has_cpan_meta()
|
|
1718
|
0 |
153 |
if ($self->{'PERL_CORE'})
|
|
1723
|
0 |
153 |
if ($self->has_link_code)
|
|
1727
|
0 |
153 |
if ($attribs{'FILES'})
|
|
1728
|
0 |
0 |
if (ref $attribs{'FILES'}) { }
|
|
1752
|
0 |
153 |
if $attribs{'POSTOP'}
|
|
1773
|
97 |
56 |
unless @{$self->{'DIR'};}
|
|
1859
|
0 |
153 |
if $ENV{'CLEARCASE_ROOT'}
|
|
1884
|
0 |
1 |
if ($self->{'ABSTRACT_FROM'} and $self->{'ABSTRACT'})
|
|
1890
|
1 |
154 |
if ($self->{'ABSTRACT_FROM'})
|
|
1891
|
0 |
1 |
unless $self->{'ABSTRACT'} = $self->parse_abstract($self->{'ABSTRACT_FROM'})
|
|
1896
|
0 |
155 |
if ($self->{'ABSTRACT'} and $self->{'ABSTRACT'} =~ /[[:cntrl:]]+/)
|
|
1922
|
99 |
57 |
unless ($self->{'INST_LIB'})
|
|
1923
|
0 |
99 |
if ($self->{'PERL_CORE'}) { }
|
|
1959
|
0 |
2 |
if ($self->{'ARGS'}{'INSTALL_BASE'} and $self->{'ARGS'}{'PREFIX'})
|
|
1963
|
2 |
153 |
if ($self->{'ARGS'}{'INSTALL_BASE'}) { }
|
|
1989
|
298 |
8 |
unless $ExtUtils::MM_Any::Config{$k}
|
|
1995
|
304 |
2 |
unless ($ExtUtils::MM_Any::Config{$k})
|
|
1997
|
6 |
297 |
$ExtUtils::MM_Any::Config{'usevendorprefix'} ? :
|
|
2003
|
0 |
153 |
unless $ExtUtils::MM_Any::Config{'installsitebin'}
|
|
2005
|
0 |
153 |
unless $ExtUtils::MM_Any::Config{'installsitescript'}
|
|
2007
|
153 |
0 |
unless ($ExtUtils::MM_Any::Config{'installvendorbin'})
|
|
2010
|
4 |
149 |
$ExtUtils::MM_Any::Config{'usevendorprefix'} ? :
|
|
2012
|
153 |
0 |
unless ($ExtUtils::MM_Any::Config{'installvendorscript'})
|
|
2015
|
4 |
149 |
$ExtUtils::MM_Any::Config{'usevendorprefix'} ? :
|
|
2021
|
4 |
149 |
$ExtUtils::MM_Any::Config{'usevendorprefix'} ? :
|
|
2025
|
0 |
153 |
unless $sprefix
|
|
2030
|
2 |
151 |
if ($self->{'PREFIX'}) { }
|
|
2051
|
0 |
153 |
if ($self->{'LIBSTYLE'})
|
|
2053
|
0 |
0 |
$self->{'LIBSTYLE'} eq 'lib/perl5' ? :
|
|
2060
|
222 |
84 |
unless $ExtUtils::MM_Any::Config{"installman" . $num . "dir"}
|
|
2145
|
0 |
153 |
if ($self->{'LIB'})
|
|
2149
|
0 |
0 |
if ($var =~ /arch/) { }
|
|
2169
|
0 |
2754 |
if $ExtUtils::MM_Any::Verbose >= 2
|
|
2173
|
536 |
2218 |
if $self->{$Installvar}
|
|
2175
|
918 |
1300 |
if $style
|
|
2178
|
0 |
2218 |
if $ExtUtils::MM_Any::Verbose >= 2
|
|
2220
|
12 |
24 |
$thing =~ /^man.dir$/ && !$ExtUtils::MM_Any::Config{lc $key} ? :
|
|
2275
|
94 |
61 |
if ($self->{'VERSION_FROM'})
|
|
2277
|
0 |
94 |
if ($self->{'VERSION'} eq "undef")
|
|
2283
|
107 |
48 |
if (defined $self->{'VERSION'}) { }
|
|
2284
|
2 |
105 |
unless ($self->{'VERSION'} =~ /^\s*v?[\d_\.]+\s*$/)
|
|
2287
|
0 |
2 |
if defined $normal
|
|
2395
|
156 |
0 |
unless defined $self->{'NOECHO'}
|
|
2437
|
0 |
155 |
if ($libs[0] or $libs[1] or $libs[2])
|
|
2445
|
0 |
154 |
if ($self->{'OBJECT'}) { }
|
|
|
0 |
154 |
elsif ($self->{'MAGICXS'} || $self->{'XSMULTI'} and @{[] unless $self->{'O_FILES'};}) { }
|
|
2446
|
0 |
0 |
if ref $self->{'OBJECT'}
|
|
2448
|
0 |
0 |
unless $self->{'O_FILES'}
|
|
2454
|
0 |
154 |
unless $self->{'C'}
|
|
|
0 |
154 |
if @{[] unless $self->{'C'};}
|
|
2458
|
0 |
154 |
-f "$self->{'BASEEXT'}_BS" ? :
|
|
2460
|
154 |
0 |
unless $self->{'LDFROM'}
|
|
2466
|
97 |
57 |
unless ($self->{'LINKTYPE'})
|
|
2469
|
97 |
0 |
$ExtUtils::MM_Any::Config{'usedl'} ? :
|
|
|
0 |
97 |
$self->{'SKIPHASH'}{'dynamic'} ? :
|
|
2481
|
1 |
5 |
!defined($libs->[0]) ? :
|
|
|
4 |
7 |
!ref($libs) ? :
|
|
|
152 |
11 |
!defined($libs) ? :
|
|
2517
|
153 |
4437 |
unless defined $self->{$tool}
|
|
2700
|
0 |
153 |
$attribs{'MAXLEN'} ? :
|
|
2739
|
1 |
158 |
if $self->{'PERL_SRC'}
|
|
2748
|
2 |
156 |
if ($pthinks ne $cthinks)
|
|
2756
|
1 |
1 |
unless $self->{'UNINSTALLED_PERL'}
|
|
2808
|
113 |
0 |
-d 't' ? :
|
|
2838
|
0 |
0 |
unless -d $dir
|
|
2846
|
0 |
0 |
unless /\.t$/
|
|
2913
|
6 |
1016 |
if ($path =~ /^README\.pod$/i)
|
|
2919
|
4 |
1012 |
if grep /^(?:RCS|CVS|SCCS|\.svn|_darcs)$/, $self->splitdir($dirs), $file
|
|
2991
|
0 |
0 |
if $self->{'MIN_PERL_VERSION'}
|
|
2992
|
0 |
0 |
if $self->{'BUILD_REQUIRES'}
|
|
3021
|
0 |
0 |
if ($self->{'MIN_PERL_VERSION'})
|
|
3049
|
0 |
0 |
unless opendir my $dh, $header_dir
|