Branch Coverage

lib/Yandex/Disk.pm
Criterion Covered Total %
branch 2 76 2.6


line true false branch
42 0 1 if ($res->is_success) { }
56 0 0 unless defined $overwrite
58 0 0 unless (-f $file)
62 0 0 $overwrite ? :
72 0 0 if ($code eq '409') { }
0 0 elsif ($code eq '200') { }
83 0 0 if ($upl_code ne '201')
95 0 0 if ($recursive)
105 0 0 if ($code eq '409') { }
0 0 elsif ($code ne '201') { }
108 0 0 if ($json_res->{'error'} eq 'DiskPathPointsToExistentDirectoryError')
127 0 0 $permanently ? :
131 0 0 if ($code eq '204') { }
0 0 elsif ($code eq '202') { }
136 0 0 if ($wait)
138 0 0 unless $self->__waitResponse($href, $WAIT_RETRY)
155 0 0 if ($code ne '200')
170 0 0 $path ? :
173 0 0 if ($code eq '204') { }
0 0 elsif ($code eq '202') { }
177 0 0 if ($wait)
179 0 0 unless $self->__waitResponse($href, $WAIT_RETRY)
184 0 0 if $path
195 0 0 unless $offset
200 0 0 if ($code ne '200')
217 0 0 unless open my $FL, ">$fname"
221 0 0 if ($res->code eq '200')
234 0 0 if ($code eq '200' and __fromJson($res->decoded_content)->{'status'} eq 'success')
255 0 0 unless my $sock = 'IO::Socket::SSL'->new('PeerAddr', $host, 'PeerPort', $port, 'Proto', 'tcp')
270 0 0 unless open my $FH, "<$file"
275 0 0 unless $sock->print($hex)
276 0 0 unless $sock->print("\r\n")
278 0 0 unless $sock->print($filebuf)
279 0 0 unless $sock->print("\r\n")
283 0 0 unless $sock->print("0\r\n")
284 0 0 unless $sock->print("\r\n")
297 2 0 unless $param
307 0 0 ref $_[0] ? :