| line |
true |
false |
branch |
|
58
|
0 |
0 |
if ($self->{'command'} eq 'load' and $self->{'from'}) |
|
62
|
0 |
0 |
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'} |
|
95
|
0 |
3 |
'File::Spec'->file_name_is_absolute($self->{'filepath'}) ? : |
|
100
|
0 |
3 |
unless (_check_permission($dirs)) |
|
104
|
1 |
2 |
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
|
0 |
2 |
if ($self->{'digest'}) |
|
180
|
0 |
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'}) |