| line |
true |
false |
branch |
|
58
|
0 |
2 |
if ($$self{'command'} eq 'load' and $$self{'from'}) |
|
62
|
0 |
2 |
if ($$self{'command'} eq 'copy' and $$self{'from'}) |
|
75
|
0 |
3 |
unless $$self{'command'} |
|
77
|
0 |
3 |
unless (grep {$_ eq $$self{'command'};} @cmd_list) |
|
81
|
0 |
3 |
unless $$self{'filepath'} |
|
83
|
0 |
3 |
unless (-d $$self{'directory'}) |
|
91
|
3 |
0 |
unless $$self{'directory'} |
|
93
|
0 |
3 |
'File::Spec'->file_name_is_absolute($$self{'filepath'}) ? : |
|
100
|
0 |
3 |
unless (_check_permission($dirs)) |
|
104
|
2 |
1 |
if (-f $$self{'fullpath'}) |
|
119
|
3 |
0 |
if -d -w $path |
|
130
|
0 |
0 |
unless $$self{'url'} |
|
139
|
0 |
0 |
unless (-f -T $downloaded) |
|
143
|
0 |
0 |
if ($$self{'contents'}) |
|
149
|
0 |
0 |
if ($$self{'digest'}) |
|
152
|
0 |
0 |
if ($$self{'digest'} eq $digest) |
|
159
|
0 |
0 |
unless move($$self{'fullpath'}, 'File::Spec'->catfile($dir, $filename . time)) |
|
163
|
0 |
0 |
unless copy($path, $$self{'fullpath'}) |
|
173
|
0 |
2 |
unless $$self{'contents'} |
|
179
|
1 |
1 |
if ($$self{'digest'}) |
|
180
|
1 |
0 |
if ($$self{'digest'} eq sha1_hex($$self{'contents'})) |
|
185
|
0 |
0 |
unless move($$self{'fullpath'}, 'File::Spec'->catfile($dir, $filename . time)) |
|
203
|
0 |
0 |
unless $$self{'source'} |
|
205
|
0 |
0 |
unless (-f -T $$self{'source'}) |
|
215
|
0 |
0 |
if ($$self{'contents'}) |
|
221
|
0 |
0 |
if ($$self{'digest'}) |
|
226
|
0 |
0 |
if ($$self{'digest'} eq $digest) |
|
230
|
0 |
0 |
unless move($$self{'fullpath'}, 'File::Spec'->catfile($dir, $filename . time)) |
|
234
|
0 |
0 |
unless copy($path, $$self{'fullpath'}) |
|
261
|
1 |
0 |
if $$self{'contents'} |
|
262
|
0 |
1 |
if $$self{'url'} |
|
263
|
0 |
1 |
if $$self{'source'} |
|
265
|
0 |
1 |
if ($$self{'directory'} ne $ENV{'HOME'}) |
|
281
|
0 |
0 |
if ($$self{'command'} eq 'load') |
|
285
|
0 |
0 |
if ($$self{'command'} eq 'copy') |
|
289
|
0 |
0 |
if ($$self{'directory'} ne $ENV{'HOME'}) |
|
293
|
0 |
0 |
if ($$self{'contents'}) |