| line |
true |
false |
branch |
|
35
|
0 |
0 |
unless ref $archive_name eq 'Regexp' |
|
58
|
0 |
0 |
unless (defined $p{'directory'} or defined $p{'filename'}) |
|
61
|
0 |
0 |
if (ref $p{'filename'} eq 'Regexp' and not defined $p{'directory'}) |
|
66
|
0 |
0 |
if (ref $p{'filename'} eq 'Regexp' or not defined $filename) |
|
70
|
0 |
0 |
if (defined $p{'directory'}) |
|
74
|
0 |
0 |
if (-f $filename) |
|
75
|
0 |
0 |
if $self->_checksum($filename) |
|
76
|
0 |
0 |
unless $p{'overwrite'} |
|
80
|
0 |
0 |
unless $self->_checksum($filename) |
|
91
|
0 |
0 |
if (defined $archive_name) |
|
92
|
0 |
0 |
unless ref $archive_name eq 'Regexp' |
|
97
|
0 |
0 |
unless @names |
|
99
|
0 |
0 |
if (defined $constraint) |
|
100
|
0 |
0 |
unless ref $constraint eq 'Regexp' |
|
102
|
0 |
0 |
unless @names |
|
105
|
0 |
0 |
if wantarray |
|
106
|
0 |
0 |
unless @names == 1 |
|
110
|
0 |
0 |
if $filename =~ m[/] |
|
111
|
0 |
0 |
unless $filename =~ /^[a-zA-Z0-9]/ |