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]/ |