Branch Coverage

blib/lib/App/DistSync.pm

Criterion	Covered	Total	%
branch	0	262	0.0

line	true	false	branch
221	0	0	unless defined $dir
238	0	0	-e $props{'file_manifest'} && -s $props{'file_manifest'} ? :
241	0	0	-e $props{'file_manidel'} && -s $props{'file_manidel'} ? :
244	0	0	-e $props{'file_mirrors'} && -s $props{'file_mirrors'} ? :
255	0	0	if ($to and $to =~ /^[0-9]{1,11}$/) { }
269	0	0	unless touch($self->{'file_maniskip'})
270	0	0	if (-e $self->{'file_maniskip'} and -z $self->{'file_maniskip'})
271	0	0	unless open FILE, '>', $self->{'file_maniskip'}
322	0	0	unless touch($self->{'file_manidel'})
323	0	0	if (-e $self->{'file_manidel'} and -z $self->{'file_manidel'})
324	0	0	unless open FILE, '>', $self->{'file_manidel'}
344	0	0	unless touch($self->{'file_mirrors'})
345	0	0	if (-e $self->{'file_mirrors'} and -z $self->{'file_mirrors'})
346	0	0	unless open FILE, '>', $self->{'file_mirrors'}
364	0	0	unless touch($self->{'file_readme'})
365	0	0	if (-e $self->{'file_readme'} and -z $self->{'file_readme'})
366	0	0	unless open FILE, '>', $self->{'file_readme'}
386	0	0	if ref $self->{'maniskip'} eq 'HASH'
394	0	0	if ($dellist and ref $dellist eq 'HASH')
398	0	0	if $dt > $expire
402	0	0	unless $expire > 0
406	0	0	if ($deltime and time - $deltime > $expire) { }
410	0	0	if (_skipcheck(\%skips, $k)) { }
414	0	0	if (-e $f) { }
426	0	0	if ($deltime) { }
439	0	0	if ref $dellist eq 'HASH'
451	0	0	if ref $mirror_list eq 'HASH'
452	0	0	if (@mirrors) { }
459	0	0	if ($fetch_lock->{'status'})
460	0	0	if ($self->check_lock($self->{'file_manitemp'})) { }
473	0	0	if ($fetch_meta->{'status'})
475	0	0	if ($remote_meta and ref $remote_meta eq 'ARRAY' || ref $remote_meta eq 'YAML::Tiny') { }
	0	0	elsif ($remote_meta and ref $remote_meta eq 'HASH') { }
485	0	0	if ($remote_meta and $remote_meta->{'status'}) { }
488	0	0	time - $remote_date > _expire('+1d') ? :
495	0	0	defined $remote_meta->{'date'} ? :
	0	0	$remote_date ? :
	0	0	$remote_ok ? :
499	0	0	unless ($remote_ok)
500	0	0	$remote_date ? :
514	0	0	if ($fetch_mani->{'status'}) { }
522	0	0	if ($mtmp{$k}) { }
525	0	0	if $mt_l and $mt_r and $mt_l == $mt_r
545	0	0	unless $mtmp{$k} and $mtmp{$k} == 1
546	0	0	if ($local_manifest->{$k} and $remote_manifest->{$k}) { }
	0	0	elsif ($local_manifest->{$k}) { }
	0	0	elsif ($remote_manifest->{$k}) { }
549	0	0	if ($mt_l > $mt_r and $mt_l - $mt_r > _expire('+1m'))
551	0	0	if ($mt_l < $mt_r and $mt_r - $mt_l > _expire('+1m')) { }
557	0	0	unless (_skipcheck(\%skips, $k))
574	0	0	unless (_skipcheck(\%skips, $k))
600	0	0	if ($fetch_mirr->{'status'} and -z $self->{'file_mirrors'} || $fetch_mirr->{'mtime'} > $self->{'mtime_mirrors'})
605	0	0	if ($mcnt and $mcnt > 1) { }
622	0	0	if ($fetch_dir->{'status'})
626	0	0	unless (_skipcheck(\%skips, $k))
627	0	0	$delete_list{$k} ? :
645	0	0	if (-e $f) { }
662	0	0	if ($list and ref $list eq 'ARRAY') { }
667	0	0	if $dwldd
671	0	0	unless ($url)
675	0	0	unless ($size)
679	0	0	unless ($mt_r or not $mt_l)
683	0	0	if ($mt_l >= $mt_r)
691	0	0	if ($fetch_file->{'status'}) { }
693	0	0	if ($size_fact and $size_fact == $size) { }
704	0	0	$fetch_file->{'code'} ? :
711	0	0	if ($dwldd) { }
725	0	0	if ($mkerr and ref $mkerr eq 'ARRAY' and @$mkerr)
727	0	0	unless $e and ref $e eq 'HASH'
739	0	0	unless (mv($src, $dst))
744	0	0	unless $skipped
761	0	0	if $nskip
762	0	0	$nskip ? :
768	0	0	unless maniwrite($self->{'file_manifest'}, $new_manifest)
783	0	0	unless write_yaml($self->{'file_meta'}, $new_meta)
790	0	0	unless $file and -e $file
793	0	0	unless (open RD_LOCK_FILE, '<', $file)
799	0	0	unless defined $l
800	0	0	unless (close RD_LOCK_FILE)
806	0	0	if ($r_pid and $r_pid =~ /^[0-9]{1,11}$/ and kill 0, $r_pid)
807	0	0	if $self->{'pid'} == $r_pid
814	0	0	@_ ? :
	0	0	if $DEBUG
819	0	0	unless defined $file
821	0	0	unless (open FILE, '>>', $file)
825	0	0	unless (close FILE)
830	0	0	unless (utime $t, $t, $file)
838	0	0	unless defined $file and -e $file
839	0	0	unless (unlink $file)
847	0	0	unless defined $file
848	0	0	unless -e $file and -r $file
851	0	0	unless $data
857	0	0	unless defined $file
858	0	0	unless defined $data
869	0	0	unless defined $mfile and -e $mfile and -r $mfile and -s $mfile
871	0	0	unless (open M, '<', $mfile)
878	0	0	if /^\s*#/
881	0	0	if ($skipflag and $_ =~ m[^\s*\!\!perl/regexp\s*]i) { }
890	0	0	unless (($file, $args) = /^'(\\[\\']|.+)+'\s*(.*)/)
896	0	0	if (($file, $args) = /^'(\\[\\']|.+)+'\s*(.*)/) { }
902	0	0	unless $file
903	0	0	defined $args ? :
910	0	0	unless defined $dir and -e $dir
920	0	0	if -d $_
946	0	0	unless defined $file
947	0	0	unless defined $mani and ref $mani eq 'HASH'
953	0	0	unless (open M, '>', $file)
970	0	0	$d->{'mtime'} ? :
973	0	0	if $tabs < 1
974	0	0	unless $text
975	0	0	if ($f =~ /\s/)
1002	0	0	defined $obj ? :
1007	0	0	unless (defined $file)
1014	0	0	defined $content_type ? :
	0	0	defined $document_length ? :
	0	0	defined $modified_time ? :
	0	0	defined $server ? :
1026	0	0	if ($document_length) { }
1031	0	0	if ($modified_time) { }
1042	0	0	if ($code >= 200 and $code < 400)
1043	0	0	if (-e $file and -s $file)
1053	0	0	unless defined $str
1054	0	0	if $str =~ /^[-+]?(\d+)$/
1067	0	0	unless (defined $koef and defined $d)
1082	0	0	unless defined $node
1083	0	0	unless $node =~ m[^\s*\!\!perl/regexp\s*]i
1085	0	0	unless $node =~ /^\(\?([\^\-xism]*):(.*)\)\z/s
1095	0	0	unless $sl and defined $st and ref $sl eq 'HASH'
1096	0	0	if exists $sl->{$st} and defined $sl->{$st}
1099	0	0	if ref $_ eq 'Regexp'
	0	0	if (grep {$st =~ /$_/ if ref $_ eq 'Regexp';} values %$sl)