| line |
true |
false |
branch |
|
63
|
0 |
2 |
$^O eq 'VMS' ? : |
|
73
|
2 |
0 |
unless ($config{'path'}) |
|
79
|
0 |
2 |
unless (-f $config{'file'} or $0 ne 'Build.PL' and $0 ne 'Makefile.PL') |
|
85
|
0 |
0 |
unless (grep {$_ eq $config{'prefix'};} @INC) |
|
90
|
0 |
2 |
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
|
3 |
0 |
if ($Module::Build::VERSION >= 0.28) |
|
269
|
1 |
11 |
if (exists $ALIASES{$sub}) |
|
280
|
6 |
5 |
if (exists $FLAGS{$sub}) |
|
282
|
2 |
4 |
$FLAGS{$sub}[1] ? : |
|
283
|
2 |
4 |
$FLAGS{$sub}[1] ? : |
|
295
|
2 |
3 |
if (exists $ARRAY{$sub}) |
|
318
|
0 |
1 |
if ('ARRAY' eq ref $argument) |
|
|
0 |
1 |
if (exists $Module::Build::Functions::ARGS{'add_to_cleanup'}) { } |
|
|
0 |
1 |
if ('ARRAY' eq ref $argument) |
|
|
0 |
1 |
if (exists $Module::Build::Functions::ARGS{'dist_author'}) { } |
|
322
|
3 |
0 |
if (exists $HASH{$sub}) |
|
325
|
3 |
0 |
$HASH{$sub}[1] ? : |
|
343
|
0 |
4 |
if ('HASH' eq ref $argument1) |
|
|
0 |
1 |
if ('HASH' eq ref $argument1) |
|
|
0 |
3 |
if ('HASH' eq ref $argument1) |
|
352
|
4 |
13 |
if ($version > $mb_required) |
|
359
|
0 |
0 |
unless defined $Module::Build::Functions::ARGS{'install_type'} |
|
360
|
0 |
0 |
if 'site' eq $Module::Build::Functions::ARGS{'install_type'} |
|
361
|
0 |
0 |
if 'perl' eq $Module::Build::Functions::ARGS{'install_type'} |
|
362
|
0 |
0 |
if 'vendor' eq $Module::Build::Functions::ARGS{'install_type'} |
|
368
|
0 |
0 |
unless (exists $Module::Build::Functions::ARGS{$name}) |
|
377
|
3 |
0 |
unless (exists $Module::Build::Functions::ARGS{$name}) |
|
386
|
0 |
0 |
unless (exists $Module::Build::Functions::ARGS{$name1}{$name2}) |
|
396
|
0 |
0 |
if ($] < 5.006) { } |
|
399
|
0 |
0 |
unless open $file_handle, "<$name" |
|
402
|
0 |
0 |
unless open $file_handle, '<', $name |
|
443
|
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) { } |
|
463
|
0 |
0 |
if ($author =~ /\A(.*?) \s* C<< \s* (.*?) \s* >>/msx) |
|
483
|
0 |
0 |
if ($author =~ /\A(.*?) \s* C<< \s* (.*?) \s* >>/msx) |
|
498
|
0 |
0 |
if ($content =~ /
(
=head \d \s+
(?:licen[cs]e|licensing|copyright|legal)\b
.*?
)
(=head\\d.*|=cut.*|)
\z
/imsx) |
|
531
|
0 |
0 |
if ($license_text =~ /\b$pattern\b/xi) |
|
552
|
0 |
0 |
if ($content =~ /
^ # Start of LINE, not start of STRING.
(?:use|require) \s*
v?
([\d_\.]+)
\s* ;
/imsx) { } |
|
574
|
0 |
0 |
if (-f $script) { } |
|
|
0 |
0 |
elsif (-d 'script' and -f "script/$script") { } |
|
638
|
0 |
0 |
unless $file =~ /\.pm$/i |
|
647
|
0 |
0 |
if ($^O eq 'cygwin') |
|
654
|
0 |
0 |
if -x $_cmd or $_cmd = 'MM'->maybe_command($_cmd) |
|
658
|
0 |
0 |
if $dir eq '' |
|
660
|
0 |
0 |
if -x $abs or $abs = 'MM'->maybe_command($abs) |
|
677
|
0 |
0 |
if ($version) |
|
684
|
0 |
0 |
if ($found_bin) { } |
|
699
|
0 |
0 |
unless (can_cc()) |
|
740
|
0 |
0 |
defined fileno $fh ? : |
|
|
0 |
0 |
if $rt eq 'IO' |
|
743
|
0 |
0 |
if ($rt ne 'GLOB') |
|
747
|
0 |
0 |
tied *{$fh;} || defined fileno $fh ? : |
|
756
|
0 |
0 |
if automated_testing() |
|
759
|
0 |
0 |
unless -t *STDOUT |
|
762
|
0 |
0 |
if (_openhandle(*ARGV)) { } |
|
765
|
0 |
0 |
if defined $ARGV and $ARGV eq '-' |
|
768
|
0 |
0 |
if eof ARGV |
|
794
|
0 |
0 |
if -d 'inc/.author' |
|
795
|
0 |
0 |
if -d 'inc/_author' |
|
796
|
0 |
0 |
if -d '.svn' |
|
797
|
0 |
0 |
if -f '.cvsignore' |
|
798
|
0 |
0 |
if -f '.gitignore' |
|
799
|
0 |
0 |
if -f 'MANIFEST.SKIP' |
|
810
|
0 |
0 |
unless exists $Module::Build::Functions::ARGS{"$type_files"} |
|
814
|
0 |
0 |
if ($] < 5.006) |
|
819
|
0 |
0 |
unless opendir $dir_handle, $srcdir |
|
823
|
0 |
0 |
if (-d catdir($srcdir, $direntry)) { } |
|
824
|
0 |
0 |
if $direntry eq '.' |
|
825
|
0 |
0 |
if $direntry eq '..' |
|
836
|
0 |
0 |
if (exists $$files{$unixfile}) |
|
849
|
0 |
0 |
@_ ? : |
|
850
|
0 |
0 |
@_ ? : |
|
852
|
0 |
0 |
unless (defined $type and $type eq 'module' || $type eq 'dist') |
|
857
|
0 |
0 |
unless (defined $dir and -d $dir) |
|
864
|
0 |
0 |
if (0 == scalar %$files) |
|
870
|
0 |
0 |
if ($type eq 'dist') { } |
|
871
|
0 |
0 |
if @_ |
|
883
|
0 |
0 |
unless (defined $module) |
|
900
|
0 |
0 |
if ($Module::Build::VERSION >= 0.31) |
|
917
|
0 |
0 |
unless (exists $Module::Build::Functions::ARGS{'auto_features'}) |
|
920
|
0 |
0 |
unless (exists $Module::Build::Functions::ARGS{'auto_features'}{$feature}) |
|
934
|
0 |
0 |
if ('description' eq $type) { } |
|
|
0 |
0 |
elsif ('requires' eq $type) { } |
|
947
|
0 |
0 |
if ('ARRAY' eq ref $flag) |
|
953
|
0 |
0 |
if ($flag =~ /\s/) { } |
|
968
|
0 |
0 |
if ('ARRAY' eq ref $flag) |
|
974
|
0 |
0 |
if ($flag =~ /\s/) { } |
|
990
|
1 |
0 |
unless (exists $Module::Build::Functions::ARGS{'dist_name'}) |
|
1015
|
0 |
0 |
if ('HASH' eq ref $pl_file) |
|
1031
|
0 |
0 |
if ('HASH' eq ref $key) |
|
1040
|
0 |
0 |
if (1 == scalar @_) { } |
|
|
0 |
0 |
elsif (0 != scalar @_) { } |
|
1047
|
0 |
0 |
if (defined $Module::Build::Functions::ARGS{'meta_merge'}{$key} and ref $value ne ref $Module::Build::Functions::ARGS{'meta_merge'}{$key}) |
|
1054
|
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}) { } |
|
1083
|
0 |
0 |
if ('ARRAY' eq ref $file) |
|
1089
|
0 |
0 |
if (-d $file) { } |
|
1090
|
0 |
0 |
if (exists $Module::Build::Functions::ARGS{'script_files'}) { } |
|
1091
|
0 |
0 |
if ('ARRAY' eq ref $Module::Build::Functions::ARGS{'script_files'}) { } |
|
1111
|
0 |
0 |
if ('ARRAY' eq ref $file) |
|
1117
|
0 |
0 |
if ($file =~ /[*?]/) { } |
|
1118
|
0 |
0 |
if (exists $Module::Build::Functions::ARGS{'test_files'}) { } |
|
1119
|
0 |
0 |
if ('ARRAY' eq ref $Module::Build::Functions::ARGS{'test_files'}) { } |
|
1146
|
0 |
0 |
if $@ |
|
1171
|
0 |
1 |
if ($mb_required < 0.07) |
|
1174
|
1 |
0 |
if ($mb_required > 0.2999) |
|
1178
|
1 |
0 |
unless (defined $object) |
|
1211
|
0 |
0 |
if defined $current_all_properties{$property} |
|
1213
|
0 |
0 |
if (defined $hash_properties{$property}) { } |
|
|
0 |
0 |
elsif (defined $array_properties{$property}) { } |
|
1226
|
0 |
0 |
unless (defined $additional_name) |
|
1230
|
0 |
0 |
unless ($class->valid_property($additional_name)) |
|
1234
|
0 |
0 |
if ('array' eq lc $additional_type) { } |
|
|
0 |
0 |
elsif ('hash' eq lc $additional_type) { } |
|
|
0 |
0 |
elsif ('flag' eq lc $additional_type) { } |
|
1254
|
0 |
0 |
unless defined $additional_name |
|
1260
|
0 |
0 |
unless defined $additional_name |
|
1266
|
0 |
0 |
unless defined $additional_name |