| line |
true |
false |
branch |
|
64
|
0 |
45 |
unless (defined $@) |
|
69
|
35 |
10 |
if (ref $expected_exception_text_or_regex ne 'Regexp') { } |
|
|
10 |
0 |
elsif (ref $expected_exception_text_or_regex eq 'Regexp') { } |
|
92
|
0 |
72 |
unless open STDOUT, '>', \$stdout |
|
98
|
0 |
63 |
unless close STDOUT |
|
100
|
0 |
63 |
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
}
}) |
|
101
|
0 |
0 |
if $@ |
|
102
|
0 |
0 |
if defined $error |
|
107
|
27 |
36 |
if (ref $expected eq '') { } |
|
|
4 |
32 |
elsif (ref $expected eq 'Regexp') { } |
|
|
32 |
0 |
elsif (ref $expected eq 'CODE') { } |
|
128
|
0 |
154 |
unless defined $kid |
|
130
|
137 |
17 |
if ($kid) { } |
|
138
|
1 |
0 |
&$coderef() ? : |
|
150
|
70 |
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!!!!!!!***') |
|
172
|
0 |
0 |
if -e 'lib/Test/Fetchware.pm' and -e 't/App-Fetchware-build.t' |
|
178
|
0 |
0 |
unless chdir '..' |
|
210
|
73 |
103 |
unless (defined $destination_directory) |
|
216
|
0 |
73 |
unless chmod 0755, $destination_directory |
|
320
|
0 |
176 |
if exists $opts{'Fetchwarefile'} and exists $opts{'AppendOption'} |
|
326
|
2 |
174 |
if exists $opts{'Fetchwarefile'} |
|
329
|
2 |
174 |
if exists $opts{'AppendOption'} |
|
337
|
0 |
176 |
unless mkdir $dist_name |
|
344
|
0 |
528 |
unless open my $fh, '>', $file_to_create |
|
354
|
0 |
176 |
unless chmod 0755, $configure_path |
|
360
|
0 |
176 |
unless 'Archive::Tar'->create_archive("$test_dist_filename", 9, keys %test_dist_files) |
|
377
|
0 |
160 |
unless open my $package_fh, '<', $archive_to_md5 |
|
396
|
0 |
160 |
if ($@) |
|
403
|
0 |
160 |
unless close $package_fh |
|
410
|
0 |
160 |
unless open my $md5_fh, '>', $md5sum_file |
|
417
|
0 |
160 |
unless close $md5_fh |
|
485
|
0 |
12 |
if @sorted_subs != @sorted_export |
|
490
|
159 |
0 |
if ($e eq $sorted_export[$i]) { } |
|
517
|
0 |
176 |
if (not is_os_type('Unix') or $> != 0) { } |
|
518
|
0 |
0 |
if (not defined $callback) { } |
|
550
|
0 |
0 |
unless (chmod 0644, $fetchwarefile_path and is_os_type('Unix')) |