| line |
true |
false |
branch |
|
436
|
2 |
6 |
unless ref $args eq "HASH" |
|
439
|
1 |
5 |
unless $args->{'application_dir'} |
|
441
|
1 |
4 |
unless $args->{'install'} |
|
443
|
1 |
3 |
unless -d $args->{'application_dir'} |
|
445
|
1 |
2 |
unless length $args->{'project'} |
|
449
|
1 |
1 |
unless (-d $project_dir) |
|
452
|
1 |
1 |
unless (-d $install_dir) |
|
457
|
2 |
2 |
unless (-d $fdir) |
|
630
|
0 |
1 |
if (-d $subdir) { } |
|
641
|
0 |
0 |
if my $rv = system("$invoke -v | head -n 2 | tail -n 1") |
|
647
|
0 |
0 |
if $rv = system("$invoke") |
|
698
|
4 |
0 |
if (not defined $self->{'bin_dir'}) { } |
|
708
|
2 |
0 |
if (not defined $self->{'lib_dir'}) { } |
|
742
|
0 |
2 |
if ($self->{'this_perl'}) { } |
|
751
|
2 |
0 |
if ($@) { } |
|
|
0 |
0 |
elsif (-e $this_perl) { } |
|
790
|
0 |
0 |
if ($self->{'this_cpan'}) { } |
|
799
|
0 |
0 |
if ($@) { } |
|
|
0 |
0 |
elsif (-e $this_cpan) { } |
|
847
|
0 |
0 |
unless (-d $cpanm_dir) |
|
848
|
0 |
0 |
unless -d $cpanm_dir |
|
854
|
0 |
0 |
if system " $this_cpan -v 1>/dev/null " |
|
855
|
0 |
0 |
if system " $this_cpan App::cpanminus 1>/dev/null " |
|
858
|
0 |
0 |
if system " $this_cpanm -V 1>/dev/null " |
|
866
|
2 |
0 |
if (not defined $self->{'this_cpanm'}) { } |
|
876
|
2 |
0 |
if (not defined $self->{'cpanm_dir'}) { } |
|
983
|
0 |
0 |
unless defined $args and ref $args eq "HASH" |
|
993
|
0 |
0 |
unless $eligible_args{$k} |
|
996
|
0 |
0 |
unless (defined $args->{'title'} and length $args->{'title'}) |
|
1001
|
0 |
0 |
if (exists $args->{'module_file'} and exists $args->{'module_list'}) |
|
1004
|
0 |
0 |
unless (exists $args->{'module_file'} or exists $args->{'module_list'}) |
|
1007
|
0 |
0 |
if ($args->{'module_file'}) |
|
1009
|
0 |
0 |
unless -f $args->{'module_file'} |
|
1011
|
0 |
0 |
if ($args->{'module_list'}) |
|
1013
|
0 |
0 |
unless ref $args->{'module_list'} eq "ARRAY" |
|
1018
|
0 |
0 |
if $verbose |
|
1022
|
0 |
0 |
if ($args->{'module_list'}) { } |
|
1027
|
0 |
0 |
unless open my $IN, "<", $args->{'module_file'} |
|
1030
|
0 |
0 |
if $m =~ /^#/u |
|
1033
|
0 |
0 |
unless close $IN |
|
1035
|
0 |
0 |
if ($dryrun) |
|
1037
|
0 |
0 |
if ($verbose) |
|
1059
|
0 |
0 |
if $@ |
|
1060
|
0 |
0 |
if $verbose |
|
1065
|
0 |
0 |
unless -l $this_buildlog_link |
|
1067
|
0 |
0 |
unless -f $this_buildlog |
|
1085
|
0 |
0 |
unless -d $dir |
|
1099
|
0 |
0 |
unless defined $reporter |
|
1151
|
0 |
0 |
if (not defined $self->{'analysis_dir'}) { } |
|
1161
|
0 |
0 |
if (not defined $self->{'storage_dir'}) { } |
|
1221
|
0 |
0 |
unless defined $args and ref $args eq "HASH" |
|
1225
|
0 |
0 |
unless $sep_char eq "|" or $sep_char eq "," |
|
1231
|
0 |
0 |
if $verbose |
|
1251
|
0 |
0 |
if ($@) |
|
1275
|
0 |
0 |
unless opendir my $DIRH, $analysis_dir |
|
1278
|
0 |
0 |
unless closedir $DIRH |
|
1295
|
0 |
0 |
if $args->{'verbose'} |
|
1298
|
0 |
0 |
unless chdir $self->{'results_dir'} |
|
1300
|
0 |
0 |
if $args->{'verbose'} |
|
1304
|
0 |
0 |
unless -f $foutput |
|
1306
|
0 |
0 |
if $args->{'verbose'} |
|
1307
|
0 |
0 |
unless chdir $previous_cwd |
|
1317
|
0 |
0 |
$args->{'sep_char'} eq ',' ? : |
|
1321
|
0 |
0 |
if $args->{'verbose'} |
|
1335
|
0 |
0 |
unless open my $OUT, ">:encoding(utf8)", $fcdvfile |
|
1337
|
0 |
0 |
unless $psv->print($OUT, $columns), "\n" |
|
1341
|
0 |
0 |
unless $psv->print($OUT, [$dist, @{$$args{"data"}{$dist};}{@fields}]) |
|
1344
|
0 |
0 |
unless close $OUT |
|
1345
|
0 |
0 |
unless -f $fcdvfile |
|
1350
|
0 |
0 |
$args->{'sep_char'} eq ',' ? : |
|
|
0 |
0 |
if $args->{'verbose'} |