| line |
true |
false |
branch |
|
32
|
1 |
0 |
unless ($buf_ref) |
|
38
|
1 |
0 |
if ($dir) |
|
40
|
0 |
1 |
unless (chdir $dir) |
|
46
|
0 |
1 |
unless (IPC::Cmd::run('command', $cmd, 'buffer', $buf_ref, 'verbose', $verbose)) |
|
58
|
1 |
0 |
if ($orig_dir) |
|
59
|
0 |
1 |
unless (chdir $orig_dir) |
|
64
|
0 |
1 |
$fail ? : |
|
71
|
0 |
1 |
unless (open $fh, '<', $filename) |
|
78
|
0 |
1 |
unless (close $fh) |
|
90
|
0 |
1 |
ref $lines[0] eq 'HASH' ? : |
|
91
|
0 |
1 |
$param_ref->{'append'} ? : |
|
95
|
0 |
1 |
unless (open $fh, $mode, $filename) |
|
101
|
0 |
1 |
if ($binmode) |
|
102
|
0 |
0 |
unless (binmode $fh, $binmode) |
|
113
|
0 |
1 |
unless (print {$fh;} @lines) |
|
120
|
0 |
1 |
unless (close $fh) |
|
126
|
0 |
1 |
$fail ? : |
|
133
|
0 |
1 |
if ($file_cmd) |
|
135
|
0 |
0 |
unless (run($cmd, {'buffer', \$type})) |
|
139
|
0 |
1 |
if ($type) { } |
|
152
|
0 |
1 |
if (-l $filename) { } |
|
|
1 |
0 |
elsif (-f $filename) { } |
|
154
|
0 |
0 |
if ($target) |
|
155
|
0 |
0 |
if (symlink "$target.gz", $gzname) |
|
161
|
1 |
0 |
if (IO::Compress::Gzip::gzip($filename, $gzname)) |
|
171
|
0 |
0 |
unless $strip_cmd |