| line |
true |
false |
branch |
|
52
|
0 |
4 |
unless my $mod = shift() |
|
56
|
4 |
0 |
if $file |
|
74
|
0 |
16 |
unless check($tmpl, \%hash) |
|
77
|
0 |
16 |
unless can_load('modules', {'Digest::SHA', '0.0'}) |
|
81
|
0 |
16 |
unless my $file = $self->_get_checksums_file('verbose', $verbose) |
|
84
|
0 |
16 |
unless $self->_check_signature_for_checksum_file('file', $file) |
|
88
|
0 |
16 |
unless my $href = $self->_parse_checksums_file('file', $file) |
|
95
|
15 |
1 |
if (defined $size) { } |
|
96
|
0 |
15 |
unless (-s $self->status->fetch == $size) |
|
108
|
16 |
0 |
unless (defined $sha) |
|
117
|
0 |
0 |
unless my $fh = 'FileHandle'->new($self->status->fetch) |
|
125
|
0 |
0 |
$flag ? : |
|
132
|
0 |
0 |
if $flag |
|
151
|
0 |
24 |
$have_fetchdir ? : |
|
152
|
0 |
24 |
unless my $file = $clone->fetch('ttl', $ttl, %hash) |
|
167
|
0 |
18 |
unless my $fh = sub {
;
}
->($file) |
|
172
|
18 |
90 |
if /^\$cksum = \{\s*$/ |
|
174
|
18 |
72 |
if /^$header\s*$/ |
|
183
|
69 |
312 |
if (/^\s*'([^']+)' => \{\s*$/) { } |
|
|
173 |
139 |
elsif (/^\s*'([^']+)' => '?([^'\n]+)'?,?\s*$/ and defined $dist) { } |
|
|
87 |
52 |
elsif (/^\s*}[,;]?\s*$/) { } |
|
|
18 |
34 |
elsif (/^__END__\s*$/) { } |
|
211
|
15 |
1 |
unless $conf->get_conf('signature') |
|
220
|
0 |
1 |
unless my $args = check($tmpl, \%hash) |
|
222
|
0 |
1 |
unless my $fh = sub {
;
}
->($file) |
|
227
|
1 |
34 |
if /^$header$/ |
|
230
|
0 |
1 |
unless ($signed) |
|
234
|
0 |
0 |
unless $force |
|
242
|
0 |
1 |
if (can_load('modules', {'Module::Signature', '0.06'})) |