| line |
true |
false |
branch |
|
63
|
0 |
1 |
$^O eq 'VMS' ? : |
|
73
|
1 |
0 |
unless ($config{'path'}) |
|
79
|
0 |
1 |
unless (-f $config{'file'} or $0 ne 'Build.PL' and $0 ne 'Makefile.PL') |
|
85
|
0 |
0 |
unless (grep {$_ eq $config{'prefix'};} @INC) |
|
90
|
1 |
0 |
if (defined $config{'build_class'}) |
|
117
|
0 |
0 |
unless $INC{$pathname} |
|
118
|
0 |
0 |
if $@ |
|
121
|
0 |
0 |
if -f $file |
|
125
|
0 |
0 |
unless ($skip_isa) |
|
142
|
0 |
0 |
unless open FROM, "< $from" |
|
143
|
0 |
0 |
unless open TO, "> $to" |
|
150
|
0 |
0 |
if (/^=(?:b(?:egin|ack)|head\d|(?:po|en)d|item|(?:ove|fo)r)/) { } |
|
|
0 |
0 |
elsif (/^=cut\s*\z/ and $in_pod) { } |
|
|
0 |
0 |
elsif (not $in_pod) { } |
|
180
|
1 |
0 |
if ($Module::Build::VERSION >= 0.28) |
|
270
|
0 |
0 |
if (exists $ALIASES{$sub}) |
|
281
|
0 |
0 |
if (exists $FLAGS{$sub}) |
|
283
|
0 |
0 |
$FLAGS{$sub}[1] ? : |
|
284
|
0 |
0 |
$FLAGS{$sub}[1] ? : |
|
296
|
0 |
0 |
if (exists $ARRAY{$sub}) |
|
323
|
0 |
0 |
if (exists $HASH{$sub}) |
|
326
|
0 |
0 |
$HASH{$sub}[1] ? : |
|
353
|
0 |
0 |
if ($version > $mb_required) |
|
360
|
0 |
0 |
unless defined $Module::Build::Functions::ARGS{'install_type'} |
|
361
|
0 |
0 |
if 'site' eq $Module::Build::Functions::ARGS{'install_type'} |
|
362
|
0 |
0 |
if 'perl' eq $Module::Build::Functions::ARGS{'install_type'} |
|
363
|
0 |
0 |
if 'vendor' eq $Module::Build::Functions::ARGS{'install_type'} |
|
369
|
0 |
0 |
unless (exists $Module::Build::Functions::ARGS{$name}) |
|
378
|
0 |
0 |
unless (exists $Module::Build::Functions::ARGS{$name}) |
|
387
|
0 |
0 |
unless (exists $Module::Build::Functions::ARGS{$name1}{$name2}) |
|
397
|
0 |
0 |
if ($] < 5.006) { } |
|
400
|
0 |
0 |
unless open $file_handle, "<$name" |
|
403
|
0 |
0 |
unless open $file_handle, '<', $name |
|
444
|
0 |
0 |
if ($content =~ /
=head \d \s+ (?:authors?)\b \s*
(.*?)
=head \d
/imsx) { } |
|
|
0 |
0 |
elsif ($content =~ /
=head \d \s+ (?:licen[cs]e|licensing|copyright|legal)\b \s*
.*? copyright .*? \d\d\d[\d.]+ \s* (?:\bby\b)? \s*
([^\n]*)
/imsx) { } |
|
464
|
0 |
0 |
if ($author =~ /\A(.*?) \s* C<< \s* (.*?) \s* >>/msx) |
|
484
|
0 |
0 |
if ($author =~ /\A(.*?) \s* C<< \s* (.*?) \s* >>/msx) |
|
499
|
0 |
0 |
if ($content =~ /
(
=head \d \s+
(?:licen[cs]e|licensing|copyright|legal)\b
.*?
)
(=head\\d.*|=cut.*|)
\z
/imsx) |
|
532
|
0 |
0 |
if ($license_text =~ /\b$pattern\b/xi) |
|
553
|
0 |
0 |
if ($content =~ /
^ # Start of LINE, not start of STRING.
(?:use|require) \s*
v?
([\d_\.]+)
\s* ;
/imsx) { } |
|
575
|
0 |
0 |
if (-f $script) { } |
|
|
0 |
0 |
elsif (-d 'script' and -f "script/$script") { } |
|
639
|
0 |
0 |
unless $file =~ /\.pm$/i |
|
648
|
0 |
0 |
if ($^O eq 'cygwin') |
|
655
|
0 |
0 |
if -x $_cmd or $_cmd = 'MM'->maybe_command($_cmd) |
|
659
|
0 |
0 |
if $dir eq '' |
|
661
|
0 |
0 |
if -x $abs or $abs = 'MM'->maybe_command($abs) |
|
678
|
0 |
0 |
if ($version) |
|
685
|
0 |
0 |
if ($found_bin) { } |
|
700
|
0 |
0 |
unless (can_cc()) |
|
741
|
0 |
0 |
defined fileno $fh ? : |
|
|
0 |
0 |
if $rt eq 'IO' |
|
744
|
0 |
0 |
if ($rt ne 'GLOB') |
|
748
|
0 |
0 |
tied *{$fh;} || defined fileno $fh ? : |
|
757
|
0 |
0 |
if automated_testing() |
|
760
|
0 |
0 |
unless -t *STDOUT |
|
763
|
0 |
0 |
if (_openhandle(*ARGV)) { } |
|
766
|
0 |
0 |
if defined $ARGV and $ARGV eq '-' |
|
769
|
0 |
0 |
if eof ARGV |
|
795
|
0 |
0 |
if -d 'inc/.author' |
|
796
|
0 |
0 |
if -d 'inc/_author' |
|
797
|
0 |
0 |
if -d '.svn' |
|
798
|
0 |
0 |
if -f '.cvsignore' |
|
799
|
0 |
0 |
if -f '.gitignore' |
|
800
|
0 |
0 |
if -f 'MANIFEST.SKIP' |
|
811
|
0 |
0 |
unless exists $Module::Build::Functions::ARGS{"$type_files"} |
|
815
|
0 |
0 |
if ($] < 5.006) |
|
820
|
0 |
0 |
unless opendir $dir_handle, $srcdir |
|
824
|
0 |
0 |
if (-d catdir($srcdir, $direntry)) { } |
|
825
|
0 |
0 |
if $direntry eq '.' |
|
826
|
0 |
0 |
if $direntry eq '..' |
|
837
|
0 |
0 |
if (exists $$files{$unixfile}) |
|
850
|
0 |
0 |
@_ ? : |
|
851
|
0 |
0 |
@_ ? : |
|
853
|
0 |
0 |
unless (defined $type and $type eq 'module' || $type eq 'dist') |
|
858
|
0 |
0 |
unless (defined $dir and -d $dir) |
|
865
|
0 |
0 |
if (0 == scalar %$files) |
|
871
|
0 |
0 |
if ($type eq 'dist') { } |
|
872
|
0 |
0 |
if @_ |
|
884
|
0 |
0 |
unless (defined $module) |
|
901
|
0 |
0 |
if ($Module::Build::VERSION >= 0.31) |
|
918
|
0 |
0 |
unless (exists $Module::Build::Functions::ARGS{'auto_features'}) |
|
921
|
0 |
0 |
unless (exists $Module::Build::Functions::ARGS{'auto_features'}{$feature}) |
|
935
|
0 |
0 |
if ('description' eq $type) { } |
|
|
0 |
0 |
elsif ('requires' eq $type) { } |
|
948
|
0 |
0 |
if ('ARRAY' eq ref $flag) |
|
954
|
0 |
0 |
if ($flag =~ /\s/) { } |
|
969
|
0 |
0 |
if ('ARRAY' eq ref $flag) |
|
975
|
0 |
0 |
if ($flag =~ /\s/) { } |
|
991
|
0 |
0 |
unless (exists $Module::Build::Functions::ARGS{'dist_name'}) |
|
1016
|
0 |
0 |
if ('HASH' eq ref $pl_file) |
|
1032
|
0 |
0 |
if ('HASH' eq ref $key) |
|
1041
|
0 |
0 |
if (1 == scalar @_) { } |
|
|
0 |
0 |
elsif (0 != scalar @_) { } |
|
1048
|
0 |
0 |
if (defined $Module::Build::Functions::ARGS{'meta_merge'}{$key} and ref $value ne ref $Module::Build::Functions::ARGS{'meta_merge'}{$key}) |
|
1055
|
0 |
0 |
if ('HASH' eq ref $Module::Build::Functions::ARGS{'meta_merge'}{$key}) { } |
|
|
0 |
0 |
elsif ('ARRAY' eq ref $Module::Build::Functions::ARGS{'meta_merge'}{$key}) { } |
|
1084
|
0 |
0 |
if ('ARRAY' eq ref $file) |
|
1090
|
0 |
0 |
if (-d $file) { } |
|
1091
|
0 |
0 |
if (exists $Module::Build::Functions::ARGS{'script_files'}) { } |
|
1092
|
0 |
0 |
if ('ARRAY' eq ref $Module::Build::Functions::ARGS{'script_files'}) { } |
|
1112
|
0 |
0 |
if ('ARRAY' eq ref $file) |
|
1118
|
0 |
0 |
if ($file =~ /[*?]/) { } |
|
1119
|
0 |
0 |
if (exists $Module::Build::Functions::ARGS{'test_files'}) { } |
|
1120
|
0 |
0 |
if ('ARRAY' eq ref $Module::Build::Functions::ARGS{'test_files'}) { } |
|
1147
|
1 |
0 |
if $@ |
|
1172
|
0 |
0 |
if ($mb_required < 0.07) |
|
1175
|
0 |
0 |
if ($mb_required > 0.2999) |
|
1179
|
0 |
0 |
unless (defined $object) |
|
1212
|
0 |
0 |
if defined $current_all_properties{$property} |
|
1214
|
0 |
0 |
if (defined $hash_properties{$property}) { } |
|
|
0 |
0 |
elsif (defined $array_properties{$property}) { } |
|
1227
|
0 |
0 |
unless (defined $additional_name) |
|
1231
|
0 |
0 |
unless ($class->valid_property($additional_name)) |
|
1235
|
0 |
0 |
if ('array' eq lc $additional_type) { } |
|
|
0 |
0 |
elsif ('hash' eq lc $additional_type) { } |
|
|
0 |
0 |
elsif ('flag' eq lc $additional_type) { } |
|
1255
|
0 |
0 |
unless defined $additional_name |
|
1261
|
0 |
0 |
unless defined $additional_name |
|
1267
|
0 |
0 |
unless defined $additional_name |