| line |
true |
false |
branch |
|
51
|
9 |
3388 |
unless ($self->_mtree or $recurse++ > 0) |
|
64
|
0 |
165 |
unless ($self->_atree or $recurse++ > 0) |
|
173
|
0 |
32 |
unless my $args = check($tmpl, \%hash) |
|
180
|
0 |
32 |
unless ($self->_init_trees('path', $path, 'uptodate', $uptodate, 'verbose', $verbose, 'use_stored', $use_stored)) |
|
186
|
0 |
32 |
unless $self->_mtree and $self->_atree |
|
190
|
31 |
1 |
unless ($self->_standard_trees_completed) |
|
193
|
0 |
31 |
unless $self->__create_author_tree('uptodate', $uptodate, 'path', $path, 'verbose', $verbose) |
|
200
|
0 |
31 |
unless $self->_create_mod_tree('uptodate', $uptodate, 'path', $path, 'verbose', $verbose) |
|
213
|
31 |
1 |
unless ($self->_custom_trees_completed) |
|
216
|
2 |
29 |
if ($conf->get_conf('enable_custom_sources')) |
|
217
|
0 |
2 |
unless $self->__update_custom_module_sources('verbose', $verbose) |
|
222
|
2 |
29 |
if ($conf->get_conf('enable_custom_sources')) |
|
223
|
0 |
2 |
unless $self->__create_custom_module_entries('verbose', $verbose) |
|
234
|
0 |
32 |
unless ($self->_finalize_trees('path', $path, 'uptodate', $uptodate, 'verbose', $verbose, 'use_stored', $use_stored)) |
|
299
|
0 |
30 |
unless my $args = check($tmpl, \%hash) |
|
303
|
0 |
30 |
if $conf->get_conf('no_update') and not $update_source |
|
312
|
26 |
34 |
unless $self->__check_uptodate('file', 'File::Spec'->catfile($path, $file), 'name', $name, 'update_source', $update_source, 'verbose', $verbose) |
|
326
|
1 |
0 |
if $conf->get_conf('enable_custom_sources') and $update_source || !$uptodate |
|
382
|
0 |
60 |
unless my $args = check($tmpl, \%hash) |
|
385
|
24 |
36 |
unless (-e $args->{'file'} and (stat $args->{'file'})[9] + $conf->_get_source('update') > time) |
|
392
|
26 |
34 |
if ($flag or $args->{'update_source'}) { } |
|
394
|
26 |
0 |
if ($self->_update_source('name', $args->{'name'})) { } |
|
449
|
0 |
29 |
unless my $args = check($tmpl, \%hash) |
|
476
|
0 |
29 |
unless ($rv) |
|
531
|
0 |
31 |
unless my $args = check($tmpl, \%hash) |
|
542
|
0 |
31 |
unless my $ae = 'Archive::Extract'->new('archive', $file) |
|
547
|
0 |
31 |
unless $ae->extract('to', $out) |
|
550
|
0 |
31 |
unless my $cont = $self->_get_file_contents('file', $out) |
|
557
|
0 |
31 |
if ($args->{'verbose'} and local $| = 1) |
|
570
|
0 |
124 |
unless $self->_add_author_object('author', $name, 'email', $email, 'cpanid', $id) |
|
578
|
0 |
124 |
if $args->{'verbose'} |
|
591
|
0 |
31 |
if $args->{'verbose'} |
|
643
|
0 |
31 |
unless my $args = check($tmpl, \%hash) |
|
655
|
0 |
31 |
unless my $ae = 'Archive::Extract'->new('archive', $file) |
|
660
|
0 |
31 |
unless $ae->extract('to', $out) |
|
663
|
0 |
31 |
unless my $content = $self->_get_file_contents('file', $out) |
|
671
|
0 |
31 |
if ($args->{'verbose'} and local $| = 1) |
|
681
|
279 |
310 |
unless ($past_header) |
|
684
|
31 |
248 |
if (/^\s*$/) { } |
|
685
|
0 |
31 |
unless ($count) |
|
694
|
31 |
217 |
if /^Line-Count:\s+(\d+)/ |
|
695
|
62 |
186 |
if ($count) |
|
696
|
0 |
62 |
if ($lines < $count) |
|
711
|
0 |
310 |
unless @data == 3 |
|
727
|
0 |
310 |
unless ($aobj) |
|
764
|
0 |
310 |
$data[1] eq 'undef' ? : |
|
|
0 |
310 |
unless $self->_add_module_object('module', $data[0], 'version', $data[1] eq 'undef' ? '0.0' : $data[1], 'path', 'File::Spec::Unix'->catfile($base, $data[2]), 'comment', $data[3], 'author', $aobj, 'package', $package, 'description', $dslip_mod->{'description'}, 'dslip', $dslip, 'mtime', '') |
|
771
|
0 |
310 |
if $args->{'verbose'} |
|
784
|
0 |
31 |
if $args->{'verbose'} |
|
921
|
0 |
1 |
unless check($tmpl, \%hash) |
|
927
|
0 |
1 |
if (sub {
;
}
->($index)) |
|
934
|
1 |
0 |
unless (sub {
;
}
->($dir)) |
|
935
|
0 |
1 |
unless $self->_mkdir('dir', $dir) |
|
940
|
0 |
1 |
unless (my $fh = sub {
;
}
->($index, '>')) |
|
948
|
0 |
1 |
unless (close $fh) |
|
957
|
0 |
1 |
unless ($self->__update_custom_module_source('remote', $uri, 'local', $index, 'verbose', $verbose)) |
|
984
|
0 |
2 |
unless check($tmpl, \%hash) |
|
1015
|
0 |
1 |
unless check($tmpl, \%hash) |
|
1023
|
0 |
1 |
if not defined $file and 0 |
|
1025
|
0 |
1 |
unless (defined $file) |
|
1032
|
0 |
1 |
if (sub {
;
}
->($file)) |
|
1069
|
3 |
7 |
unless (sub {
;
}
->($dir)) |
|
1107
|
0 |
4 |
unless check($tmpl, \%hash) |
|
1115
|
0 |
2 |
unless $self->__update_custom_module_source('remote', $remote, 'local', $local, 'verbose', $verbose) |
|
1122
|
0 |
4 |
if $fail |
|
1124
|
0 |
4 |
if $fail |
|
1152
|
0 |
4 |
unless check($tmpl, \%hash) |
|
1160
|
0 |
1 |
unless (my(%files) = reverse($self->__list_custom_module_sources)) |
|
1169
|
0 |
1 |
if not defined $file and 0 |
|
1172
|
0 |
1 |
unless ($file) |
|
1193
|
0 |
4 |
if ($res) { } |
|
1196
|
4 |
0 |
if ($ff->scheme eq 'file') { } |
|
1214
|
0 |
4 |
unless $self->__write_custom_module_index('path', $ff_path, 'to', $local, 'verbose', $verbose) |
|
1227
|
0 |
0 |
unless $self->_move('file', $res, 'to', $local) |
|
1259
|
0 |
5 |
unless check($tmpl, \%hash) |
|
1268
|
20 |
25 |
unless my $ae = do {
local $Archive::Extract::WARN = 0;
local $Archive::Extract::WARN = 0;
'Archive::Extract'->new('archive', $File::Find::name)
} |
|
1275
|
0 |
25 |
unless $ae->type |
|
1291
|
0 |
5 |
unless (sub {
;
}
->($dir)) |
|
1292
|
0 |
0 |
unless $self->_mkdir('dir', $dir) |
|
1297
|
0 |
5 |
unless my $fh = sub {
;
}
->($to, '>') |
|
1331
|
0 |
3 |
unless check($tmpl, \%hash) |
|
1339
|
0 |
2 |
unless my $fh = sub {
;
}
->($file) |
|
1343
|
0 |
10 |
if /^#/ |
|
1344
|
0 |
10 |
unless /\S+/ |
|
1350
|
0 |
10 |
unless my $mod = $self->parse_module('module', $parse) |
|
1370
|
8 |
2 |
if (my $old_mod = $self->module_tree($mod->module)) |