| line |
true |
false |
branch |
| 70 |
6 |
16497 |
unless ($$self{'_modtree'} or $recurse++ > 0) |
| 83 |
0 |
370 |
unless ($$self{'_authortree'} or $recurse++ > 0) |
| 143 |
0 |
25 |
unless my $args = check($tmpl, \%hash) |
| 147 |
0 |
25 |
if $conf->get_conf('no_update') and not $update_source |
| 156 |
6 |
69 |
unless $self->__check_uptodate('file', 'File::Spec'->catfile($$args{'path'}, $file), 'name', $name, 'update_source', $update_source, 'verbose', $verbose) |
| 218 |
0 |
75 |
unless my $args = check($tmpl, \%hash) |
| 221 |
3 |
72 |
unless (-e $$args{'file'} and (stat $$args{'file'})[9] + $conf->_get_source('update') > time) |
| 228 |
6 |
69 |
if ($flag or $$args{'update_source'}) { } |
| 230 |
6 |
0 |
if ($self->_update_source('name', $$args{'name'})) { } |
| 285 |
0 |
9 |
unless my $args = check($tmpl, \%hash) |
| 314 |
0 |
9 |
unless ($rv) |
| 321 |
0 |
9 |
unless utime $now, $now, 'File::Spec'->catfile($path, $file) |
| 374 |
0 |
25 |
unless my $args = check($tmpl, \%hash) |
| 398 |
0 |
25 |
unless $$self{'_modtree'} and $$self{'_authortree'} |
| 404 |
20 |
5 |
if not $uptodate or not keys %$stored |
| 462 |
0 |
25 |
unless my $args = check($tmpl, \%hash) |
| 465 |
25 |
0 |
if $conf->get_conf('storable') |
| 468 |
0 |
25 |
unless $storable |
| 473 |
5 |
20 |
if ($storable and -e $stored and -s _ and $$args{'uptodate'}) { } |
| 522 |
0 |
20 |
unless my $args = check($tmpl, \%hash) |
| 528 |
20 |
0 |
if $conf->get_conf('storable') |
| 530 |
0 |
20 |
unless $storable |
| 534 |
0 |
40 |
unless ref $$self{$key} |
| 538 |
0 |
20 |
unless keys %$to_write |
| 543 |
0 |
20 |
if (-e $stored and not -w $stored) |
| 552 |
0 |
20 |
unless (Storable::nstore($to_write, $stored)) |
| 557 |
0 |
20 |
$flag ? : |
| 563 |
0 |
45 |
unless my $path = shift @_ |
| 566 |
45 |
0 |
$conf->get_conf('storable') ? : |
| 570 |
0 |
45 |
unless $storable |
| 631 |
0 |
20 |
unless my $args = check($tmpl, \%hash) |
| 642 |
0 |
20 |
unless my $ae = 'Archive::Extract'->new('archive', $file) |
| 647 |
0 |
20 |
unless $ae->extract('to', $out) |
| 650 |
0 |
20 |
unless my $cont = $self->_get_file_contents('file', $out) |
| 718 |
0 |
20 |
unless my $args = check($tmpl, \%hash) |
| 728 |
0 |
20 |
unless my $ae = 'Archive::Extract'->new('archive', $file) |
| 733 |
0 |
20 |
unless $ae->extract('to', $out) |
| 736 |
0 |
20 |
unless my $cont = $self->_get_file_contents('file', $out) |
| 748 |
40 |
340 |
if /^\s*$/ |
| 749 |
160 |
220 |
unless $flag |
| 752 |
40 |
180 |
unless /\S/ |
| 771 |
0 |
180 |
unless ($self->author_tree($author)) |
| 784 |
80 |
820 |
$$dslip_tree{$data[0]}{$item} ? : |
| 790 |
0 |
180 |
$data[1] eq 'undef' ? : |
| 858 |
0 |
20 |
unless my $args = check($tmpl, \%hash) |
| 864 |
0 |
20 |
unless my $ae = 'Archive::Extract'->new('archive', $file) |
| 869 |
0 |
20 |
unless $ae->extract('to', $out) |
| 872 |
0 |
20 |
unless my $in = $self->_get_file_contents('file', $out) |
| 911 |
0 |
20 |
if $@ |
| 914 |
0 |
20 |
if $@ |