| line |
true |
false |
branch |
|
67
|
0 |
45 |
unless (defined $@) |
|
72
|
35 |
10 |
if (ref $expected_exception_text_or_regex ne 'Regexp') { } |
|
|
10 |
0 |
elsif (ref $expected_exception_text_or_regex eq 'Regexp') { } |
|
95
|
0 |
75 |
unless open STDOUT, '>', \$stdout |
|
101
|
0 |
66 |
unless close STDOUT |
|
103
|
0 |
66 |
unless (eval {
do {
local *STDOUT;
$| = 1;
$error = q[Can't open STDOUT to test cmd_upgrade using cmd_list] unless open STDOUT, '>', \$stdout;
&$printer();
$error = 'WTF! closing STDOUT actually failed! Huh?' unless close STDOUT
}
}) |
|
104
|
0 |
0 |
if $@ |
|
105
|
0 |
0 |
if defined $error |
|
110
|
28 |
38 |
if (ref $expected eq '') { } |
|
|
5 |
33 |
elsif (ref $expected eq 'Regexp') { } |
|
|
33 |
0 |
elsif (ref $expected eq 'CODE') { } |
|
131
|
0 |
173 |
unless defined $kid |
|
133
|
155 |
18 |
if ($kid) { } |
|
141
|
1 |
0 |
&$coderef() ? : |
|
158
|
0 |
2 |
unless defined $kid |
|
160
|
1 |
1 |
if ($kid) { } |
|
168
|
0 |
1 |
&$coderef() ? : |
|
180
|
71 |
0 |
if (not exists $ENV{'FETCHWARE_RELEASE_TESTING'} && defined $ENV{'FETCHWARE_RELEASE_TESTING'} or $ENV{'FETCHWARE_RELEASE_TESTING'} ne '***setting this will install software on your computer!!!!!!!***') |
|
202
|
0 |
0 |
if -e 'lib/Test/Fetchware.pm' and -e 't/App-Fetchware-build.t' |
|
208
|
0 |
0 |
unless chdir '..' |
|
220
|
0 |
203 |
unless (defined $opts{'file_name'}) |
|
227
|
0 |
203 |
unless (defined $opts{'ver_num'}) |
|
236
|
96 |
107 |
unless (defined $opts{'destination_directory'}) |
|
242
|
0 |
96 |
unless chmod 0755, $opts{'destination_directory'} |
|
252
|
0 |
203 |
if (defined $opts{'fetchwarefile'} and defined $opts{'append_option'}) |
|
259
|
200 |
3 |
unless (defined $opts{'fetchwarefile'}) |
|
281
|
203 |
0 |
unless (defined $opts{'configure'}) |
|
291
|
203 |
0 |
unless (defined $opts{'makefile'}) |
|
323
|
27 |
176 |
if (defined $opts{'append_option'}) |
|
353
|
0 |
203 |
unless mkdir $dist_name |
|
366
|
0 |
609 |
unless open my $fh, '>', $file_to_create |
|
376
|
0 |
203 |
unless chmod 0755, $configure_path |
|
382
|
0 |
203 |
unless 'Archive::Tar'->create_archive("$test_dist_filename", 9, keys %test_dist_files) |
|
399
|
0 |
180 |
unless open my $package_fh, '<', $archive_to_md5 |
|
418
|
0 |
180 |
if ($@) |
|
425
|
0 |
180 |
unless close $package_fh |
|
432
|
0 |
180 |
unless open my $md5_fh, '>', $md5sum_file |
|
439
|
0 |
180 |
unless close $md5_fh |
|
506
|
0 |
12 |
if @sorted_subs != @sorted_export |
|
511
|
159 |
0 |
if ($e eq $sorted_export[$i]) { } |
|
538
|
0 |
203 |
if (not is_os_type('Unix') or $> != 0) { } |
|
539
|
0 |
0 |
if (not defined $callback) { } |
|
571
|
0 |
0 |
unless (chmod 0644, $fetchwarefile_path and is_os_type('Unix')) |
|
612
|
1 |
3 |
if (not -d $dir_to_recursive_delete) { } |
|
613
|
0 |
1 |
unless unlink $dir_to_recursive_delete |
|
627
|
0 |
3 |
if (@$err) { } |
|
630
|
0 |
0 |
if ($file eq '') { } |
|
643
|
0 |
3 |
if @$err > 0 |
|
646
|
3 |
0 |
if @$res > 0 |