| line |
true |
false |
branch |
|
48
|
794 |
11643 |
if @_ |
|
189
|
36 |
0 |
$what eq 'data' ? : |
|
|
16 |
36 |
$what eq 'file' ? : |
|
|
268 |
52 |
$what eq 'chunk' ? : |
|
205
|
0 |
268 |
unless my $chunk = shift() |
|
217
|
4020 |
268 |
unless $s eq 'size' |
|
218
|
1876 |
2412 |
$v ? : |
|
224
|
0 |
268 |
if (substr($entry{'size'}, 0, 1) eq "\200") { } |
|
235
|
0 |
268 |
if $obj->magic =~ /\W/ |
|
240
|
0 |
268 |
if not length $obj->type or $obj->type =~ /\W/ |
|
241
|
0 |
268 |
if $obj->is_file and $obj->name =~ m[/$] |
|
253
|
0 |
16 |
unless defined $path |
|
259
|
15 |
1 |
unless ($type == 5) |
|
262
|
0 |
15 |
unless ($fh->open($path)) |
|
265
|
0 |
0 |
if $type == 2 |
|
309
|
1 |
15 |
if $type == 5 or $type == 2 |
|
329
|
0 |
16 |
$type == 2 && 1 ? : |
|
348
|
0 |
36 |
unless defined $path |
|
349
|
1 |
35 |
unless defined $data |
|
373
|
22 |
13 |
if ($opt and ref $opt eq 'HASH') |
|
377
|
0 |
31 |
unless exists $obj->{$key} |
|
400
|
20 |
126 |
if $self->is_dir and not length $file |
|
421
|
0 |
16 |
unless defined $file |
|
423
|
0 |
16 |
if -l $file |
|
425
|
15 |
1 |
if -f _ |
|
427
|
1 |
0 |
if -d _ |
|
429
|
0 |
0 |
if -p _ |
|
431
|
0 |
0 |
if -S _ |
|
433
|
0 |
0 |
if -b _ |
|
435
|
0 |
0 |
if -c _ |
|
438
|
0 |
0 |
if $file eq '././@LongLink' |
|
486
|
702 |
118 |
unless defined $self->prefix and length $self->prefix |
|
515
|
203 |
0 |
unpack('%16C*', $raw) == $self->chksum || unpack('%16c*', $raw) == $self->chksum ? : |
|
530
|
82 |
23 |
defined $self->data && length $self->data ? : |
|
594
|
0 |
12 |
unless defined $path |
|
615
|
0 |
1 |
unless defined $mode and $mode =~ /^[0-7]{1,4}$/ |
|
633
|
0 |
12 |
unless defined $uname |
|
635
|
0 |
12 |
if (-1 != index($uname, ':')) { } |
|
638
|
7 |
5 |
if @_ > 0 |
|
642
|
6 |
6 |
if $gname |