| 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"}))
|