Branch Coverage

lib/App/MtAws/QueueJob/MultipartPart.pm
Criterion Covered Total %
branch 27 30 90.0


line true false branch
38 1 46 unless defined $self->{'relfilename'}
39 2 44 unless $self->{'partsize'}
40 1 43 unless defined $self->{'mtime'}
41 2 41 unless $self->{'upload_id'}
42 2 39 unless $self->{'fh'}
43 2 37 unless exists $self->{'stdin'}
56 0 1 unless close $self->{'fh'}
62 11 7 if (my $r = read($self->{'fh'}, my $data, $self->{'partsize'})) { }
76 1 6 unless defined $r
88 233 218 if ($ok) { }
98 0 233 unless delete $self->{'uploadparts'}{$start}
110 0 31 unless @res
118 187 31 keys %{$$self{'uploadparts'};} ? :
202 218 @res ? :
124 11 20 unless $self->{'stdin'}