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