| blib/lib/Sys/Export/CPIO.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 23 | 50 | 46.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 21 | 1 | 0 | 0 | builtin::blessed($f) && $f->can('print') |
| 61 | 0 | 0 | 0 | defined $dev_major && defined $dev_minor |
| 3 | 0 | 0 | defined $dev and not defined $dev_major && defined $dev_minor | |
| 63 | 1 | 0 | 0 | defined $rdev_major && defined $rdev_minor |
| 2 | 0 | 1 | defined $rdev and not defined $rdev_major && defined $rdev_minor | |
| 72 | 0 | 0 | 0 | utf8::is_utf8($$data_ref) and not utf8::downgrade($$data_ref, 1) |
| 77 | 1 | 0 | 2 | $nlink and $nlink > 1 |
| 1 | 2 | 0 | $nlink and $nlink > 1 and ($mode & S_IFMT()) != 16384 |
| line | l | !l | condition |
|---|---|---|---|
| 97 | 0 | 3 | $uid // 0 |
| 0 | 3 | $gid // 0 | |
| 2 | 1 | $nlink // 1 | |
| 1 | 2 | $mtime // 0 | |
| 3 | 0 | $dev_major // 0 | |
| 3 | 0 | $dev_minor // 0 | |
| 1 | 2 | $rdev_major // 0 | |
| 1 | 2 | $rdev_minor // 0 | |
| 108 | 0 | 0 | $self->{'fh'}->print($$data_ref) or die "write: $!" |
| 110 | 0 | 0 | $self->{'fh'}->print("\0" x (4 - ($size & 3))) or die "write: $!" |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 95 | 0 | 3 | 0 | $ino //= ++$self->{'ino'} |
| 117 | 3 | 0 | 0 | not utf8::is_utf8($name) or utf8::downgrade($name, 1) |