| line |
true |
false |
branch |
| 46 |
335 |
5243 |
if @_ |
| 187 |
20 |
0 |
$what eq 'data' ? : |
| |
10 |
20 |
$what eq 'file' ? : |
| |
92 |
30 |
$what eq 'chunk' ? : |
| 203 |
0 |
92 |
unless my $chunk = shift @_ |
| 213 |
736 |
736 |
$$tmpl[++$i] ? : |
| 221 |
0 |
92 |
unless not $obj->magic =~ /\W/ |
| 226 |
0 |
92 |
if not length $obj->type or $obj->type =~ /\W/ |
| 227 |
0 |
92 |
if $obj->is_file and $obj->name =~ m[/$] |
| 236 |
0 |
10 |
unless my $path = shift @_ |
| 240 |
9 |
1 |
unless ($type == 5) |
| 242 |
0 |
9 |
unless $fh->open($path) |
| 256 |
1 |
9 |
if $type == 5 or $type == 2 |
| 265 |
0 |
10 |
$type == 2 && 1 ? : |
| 295 |
1 |
19 |
unless my $path = shift @_ |
| 296 |
0 |
19 |
unless defined $data |
| 320 |
11 |
8 |
if ($opt and ref $opt eq 'HASH') |
| 324 |
0 |
20 |
unless exists $$obj{$key} |
| 352 |
11 |
69 |
if $self->is_dir and not length $file |
| 362 |
0 |
10 |
unless my $file = shift @_ |
| 364 |
0 |
10 |
if -l $file |
| 366 |
9 |
1 |
if -f _ |
| 368 |
1 |
0 |
if -d _ |
| 370 |
0 |
0 |
if -p _ |
| 372 |
0 |
0 |
if -S _ |
| 374 |
0 |
0 |
if -b _ |
| 376 |
0 |
0 |
if -c _ |
| 379 |
0 |
0 |
if $file eq '././@LongLink' |
| 407 |
438 |
67 |
unless defined $self->prefix and length $self->prefix |
| 430 |
72 |
0 |
unpack('%16C*', $raw) == $self->chksum ? : |
| 444 |
42 |
11 |
defined $self->data && length $self->data ? : |
| 506 |
0 |
9 |
unless my $path = shift @_ |