Branch Coverage

blib/lib/Sys/Export/CPIO.pm
Criterion Covered Total %
branch 18 52 34.6


line true false branch
18 0 1 if @attrs & 1
21 0 1 unless open my $x, ">:raw", $f
0 1 builtin::blessed($f) && $f->can('print') ? :
41 0 0 if @_ > 1
46 0 0 if @_ > 1
51 0 3 if @_ > 1
61 0 3 if defined $dev and not defined $dev_major && defined $dev_minor
63 1 2 if defined $rdev and not defined $rdev_major && defined $rdev_minor
65 0 3 unless defined $mode
66 0 3 unless defined $name
70 0 3 if (defined $fileinfo->{'data'})
71 0 0 ref $fileinfo->{'data'} ? :
72 0 0 if utf8::is_utf8($$data_ref) and not utf8::downgrade($$data_ref, 1)
77 0 3 if ($nlink and $nlink > 1 and ($mode & S_IFMT()) != 16384) { }
3 0 elsif ($self->virtual_inodes) { }
79 0 0 if ($self->virtual_inodes) { }
81 0 0 if ($ino = $self->{'seen_inode'}{$hardlink_key}) { }
89 0 0 if $self->{'seen_inode'}{$hardlink_key}++
102 0 3 if length $header & 3
104 0 3 unless $self->{'fh'}->print($header)
108 0 3 if $size
110 0 3 if $size & 3
116 3 0 if (defined(my $name = $f->{'name'})) { }
0 0 elsif (defined $f->{'uname'}) { }
117 0 3 unless not utf8::is_utf8($name) or utf8::downgrade($name, 1)
131 0 0 if $self->autoclose