| line |
true |
false |
branch |
|
191
|
0 |
0 |
unless length $dir and -d $dir || -l $dir |
|
221
|
0 |
0 |
-e $props{'file_manifest'} && -s $props{'file_manifest'} ? : |
|
224
|
0 |
0 |
-e $props{'file_manidel'} && -s $props{'file_manidel'} ? : |
|
227
|
0 |
0 |
-e $props{'file_mirrors'} && -s $props{'file_mirrors'} ? : |
|
232
|
0 |
0 |
unless $to =~ /^[0-9]{1,11}$/ |
|
239
|
0 |
0 |
if $to |
|
242
|
0 |
0 |
if $props{'proxy'} |
|
246
|
0 |
0 |
if $props{'insecure'} |
|
261
|
0 |
0 |
if (touch($self->{'file_maniskip'}) and -e $self->{'file_maniskip'} and -z $self->{'file_maniskip'}) { } |
|
311
|
0 |
0 |
if (spew($self->{'file_maniskip'}, join("\n", @content))) { } |
|
323
|
0 |
0 |
if (touch($self->{'file_manidel'}) and -e $self->{'file_manidel'} and -z $self->{'file_manidel'}) { } |
|
339
|
0 |
0 |
if (spew($self->{'file_manidel'}, join("\n", @content))) { } |
|
351
|
0 |
0 |
if (touch($self->{'file_mirrors'}) and -e $self->{'file_mirrors'} and -z $self->{'file_mirrors'}) { } |
|
365
|
0 |
0 |
if (spew($self->{'file_mirrors'}, join("\n", @content))) { } |
|
377
|
0 |
0 |
if (touch($self->{'file_readme'}) and -e $self->{'file_readme'} and -z $self->{'file_readme'}) { } |
|
386
|
0 |
0 |
if (spew($self->{'file_readme'}, join("\n", @content))) { } |
|
412
|
0 |
0 |
if ref $maniskip eq "HASH" |
|
428
|
0 |
0 |
if $dt > $expire |
|
430
|
0 |
0 |
unless $expire > 0 |
|
431
|
0 |
0 |
if $deltime |
|
434
|
0 |
0 |
if ($deltime and time - $deltime > $expire) { } |
|
437
|
0 |
0 |
if (_skipcheck(\%skips, $k)) |
|
442
|
0 |
0 |
if (-e $f) { } |
|
454
|
0 |
0 |
if ($deltime) { } |
|
456
|
0 |
0 |
if ($self->verbose) |
|
474
|
0 |
0 |
if (scalar @mirrors) { } |
|
483
|
0 |
0 |
if ($fetch_lock->{'status'}) |
|
484
|
0 |
0 |
if ($self->_check_lockfile($self->{'file_manitemp'})) { } |
|
499
|
0 |
0 |
if ($fetch_meta->{'status'}) { } |
|
501
|
0 |
0 |
if (ref $remote_meta eq "ARRAY" or ref $remote_meta eq "YAML::Tiny") |
|
504
|
0 |
0 |
unless ($remote_meta and ref $remote_meta eq "HASH") |
|
508
|
0 |
0 |
if ($remote_meta->{'status'}) { } |
|
511
|
0 |
0 |
$remote_date ? : |
|
512
|
0 |
0 |
time - $remote_date > _expire('+1d') ? : |
|
513
|
0 |
0 |
if ($self->verbose) |
|
523
|
0 |
0 |
$remote_ok ? : |
|
526
|
0 |
0 |
unless ($remote_ok) |
|
543
|
0 |
0 |
if ($fetch_mani->{'status'}) { } |
|
550
|
0 |
0 |
unless (exists $mtmp{$k}) |
|
556
|
0 |
0 |
if $mt_l and $mt_r and $mt_l == $mt_r |
|
579
|
0 |
0 |
unless $mtmp{$k} |
|
580
|
0 |
0 |
unless $mtmp{$k} == 1 |
|
581
|
0 |
0 |
if ($manifest->{$k} and $remote_manifest->{$k}) { } |
|
|
0 |
0 |
elsif ($manifest->{$k}) { } |
|
|
0 |
0 |
elsif ($remote_manifest->{$k}) { } |
|
584
|
0 |
0 |
if ($mt_l > $mt_r and $mt_l - $mt_r > $lim) |
|
587
|
0 |
0 |
if ($mt_l < $mt_r and $mt_r - $mt_l > $lim) { } |
|
589
|
0 |
0 |
if $self->verbose |
|
592
|
0 |
0 |
unless (_skipcheck(\%skips, $k)) |
|
609
|
0 |
0 |
if $self->verbose |
|
610
|
0 |
0 |
unless (_skipcheck(\%skips, $k)) |
|
619
|
0 |
0 |
if $self->verbose |
|
636
|
0 |
0 |
if ($fetch_mirr->{'status'} and -z $self->{'file_mirrors'} || $fetch_mirr->{'mtime'} > $self->{'mtime_mirrors'}) { } |
|
639
|
0 |
0 |
if ($mcnt and $mcnt > 1) { } |
|
651
|
0 |
0 |
unless $fetch_mirr->{'status'} |
|
659
|
0 |
0 |
if ($fetch_dir->{'status'}) { } |
|
662
|
0 |
0 |
unless (_skipcheck(\%skips, $k)) |
|
684
|
0 |
0 |
if (-e $f) { } |
|
706
|
0 |
0 |
unless (scalar @$list) |
|
707
|
0 |
0 |
if $self->verbose |
|
715
|
0 |
0 |
if $is_downloaded |
|
721
|
0 |
0 |
unless ($url) |
|
722
|
0 |
0 |
if $self->verbose |
|
727
|
0 |
0 |
unless ($size) |
|
728
|
0 |
0 |
if $self->verbose |
|
733
|
0 |
0 |
unless ($mt_r or not $mt_l) |
|
734
|
0 |
0 |
if $self->verbose |
|
737
|
0 |
0 |
if ($mt_l >= $mt_r) |
|
738
|
0 |
0 |
if $self->verbose |
|
744
|
0 |
0 |
if ($fetch_file->{'status'}) { } |
|
746
|
0 |
0 |
if ($size_fact and $size_fact == $size) |
|
747
|
0 |
0 |
if $self->verbose |
|
755
|
0 |
0 |
if $self->verbose |
|
757
|
0 |
0 |
unless ($is_downloaded) |
|
772
|
0 |
0 |
if ($mkerr and ref $mkerr eq "ARRAY" and scalar @$mkerr) |
|
774
|
0 |
0 |
unless $e and ref $e eq "HASH" |
|
783
|
0 |
0 |
unless (mv($src, $dst)) |
|
800
|
0 |
0 |
if $nskip |
|
801
|
0 |
0 |
$nskip ? : |
|
807
|
0 |
0 |
unless maniwrite($self->{'file_manifest'}, $new_manifest) |
|
830
|
0 |
0 |
unless write_yaml($self->{'file_meta'}, $new_meta) |
|
853
|
0 |
0 |
unless (length $file) |
|
861
|
0 |
0 |
defined $obj ? : |
|
876
|
0 |
0 |
if ($self->verbose) |
|
877
|
0 |
0 |
unless ($DEBUG or $response->is_success) |
|
883
|
0 |
0 |
if ($response->is_success) { } |
|
886
|
0 |
0 |
$modified_time ? : |
|
887
|
0 |
0 |
$expires ? : |
|
895
|
0 |
0 |
unless ($response->is_success) |
|
905
|
0 |
0 |
unless ($ret->{'mtime'}) |
|
912
|
0 |
0 |
if (-e $file) |
|
913
|
0 |
0 |
unless (mv($file, $temp)) |
|
923
|
0 |
0 |
if ($self->verbose) |
|
924
|
0 |
0 |
unless debug("> GET %s", $uri->as_string) |
|
925
|
0 |
0 |
unless debug("< %s", $response->status_line) |
|
927
|
0 |
0 |
if ($response->is_success) { } |
|
928
|
0 |
0 |
if (-e $file and -s $file == $ret->{'size'}) |
|
938
|
0 |
0 |
if (not $ret->{'status'} and -e $temp) |
|
939
|
0 |
0 |
unless (mv($temp, $file)) |
|
952
|
0 |
0 |
unless (scalar @mirrors) |
|
967
|
0 |
0 |
if ($fetch_lock->{'status'}) |
|
968
|
0 |
0 |
if ($self->_check_lockfile($self->{'file_manitemp'})) { } |
|
983
|
0 |
0 |
if ($meta->{'status'}) { } |
|
985
|
0 |
0 |
if (ref $remote_meta eq "ARRAY" or ref $remote_meta eq "YAML::Tiny") |
|
988
|
0 |
0 |
unless ($remote_meta and ref $remote_meta eq "HASH") |
|
992
|
0 |
0 |
unless ($remote_meta->{'status'}) |
|
1000
|
0 |
0 |
$remote_date ? : |
|
1001
|
0 |
0 |
time - $remote_date > _expire('+1d') ? : |
|
1002
|
0 |
0 |
$self_mode ? : |
|
1003
|
0 |
0 |
$remote_ok ? : |
|
1011
|
0 |
0 |
unless ($remote_ok) |
|
1033
|
0 |
0 |
if ref $maniskip eq "HASH" |
|
1047
|
0 |
0 |
if (_skipcheck(\%skips, $k)) |
|
1065
|
0 |
0 |
if $nskip |
|
1066
|
0 |
0 |
$nskip ? : |
|
1072
|
0 |
0 |
unless maniwrite($self->{'file_manifest'}, $new_manifest) |
|
1082
|
0 |
0 |
unless $file and -e $file |
|
1085
|
0 |
0 |
unless (open $fh, "<", $file) |
|
1092
|
0 |
0 |
unless (close $fh) |
|
1098
|
0 |
0 |
unless $r_pid and $r_pid =~ /^[0-9]{1,11}$/ |
|
1099
|
0 |
0 |
if kill 0, $r_pid and $pid == $r_pid |
|
1109
|
0 |
0 |
$self->{'insecure'} ? : |
|
1121
|
0 |
0 |
unless defined $str |
|
1122
|
0 |
0 |
if $str =~ /^[-+]?(\d+)$/ |
|
1135
|
0 |
0 |
unless (defined $koef and defined $d) |
|
1144
|
0 |
0 |
unless $sl and defined $st and ref $sl eq "HASH" |
|
1145
|
0 |
0 |
if exists $sl->{$st} and defined $sl->{$st} |
|
1148
|
0 |
0 |
if ref $_ eq "Regexp" |
|
|
0 |
0 |
if (grep {$st =~ /$_/ if ref $_ eq "Regexp";} values %$sl) |