| line |
true |
false |
branch |
|
22
|
0 |
0 |
unless (defined $args{'directory'}) |
|
57
|
0 |
0 |
if ($self->{'index'}{$package}) |
|
60
|
0 |
0 |
if ('version'->parse($orig_ver) > 'version'->parse($version)) |
|
86
|
0 |
0 |
unless -f $mfile |
|
88
|
0 |
0 |
if $meta and $meta->{'provides'} |
|
90
|
0 |
0 |
if ($@) |
|
102
|
0 |
0 |
if $provides |
|
123
|
0 |
0 |
unless my $fh = 'IO::Zlib'->new($pkgfname, 'w') |
|
158
|
0 |
0 |
unless -e $self->_package_file |
|
160
|
0 |
0 |
unless my $fh = 'IO::Uncompress::Gunzip'->new($self->_package_file) |
|
165
|
0 |
0 |
unless /\S/ |
|
169
|
0 |
0 |
if (/^(\S+)\s+(\S+)\s+(.*)$/) |
|
170
|
0 |
0 |
$2 eq 'undef' ? : |
|
191
|
0 |
0 |
unless -d $authors_dir |
|
197
|
0 |
0 |
unless /
(?:
\.tar\.gz
| \.tgz
| \.zip
)
\z/x |