Branch Coverage

blib/lib/Sys/Filesystem.pm
Criterion Covered Total %
branch 38 58 65.5


line true false branch
37 0 6 $^O =~ /Win32/i ? :
45 0 6 $ENV{'SYS_FILESYSTEM_DEBUG'} ? :
46 0 6 'darwin' eq $^O ? :
59 0 6 unless eval { do { $qo->isa($qo) } }
64 6 0 if $Supported = $FsPlugin ne 'Sys::Filesystem::Unix'
71 1 11 if ref(my $class = shift())
74 1 10 if @_ % 2
77 0 10 if exists $args{'xtab'} and carp('Using xtab is depreciated')
78 0 10 if defined $Sys::Filesystem::FSTAB and not exists $args{'fstab'}
79 0 10 if defined $Sys::Filesystem::MTAB and not exists $args{'mtab'}
80 2 8 if defined $Sys::Filesystem::CANONDEV and not exists $args{'canondev'}
86 1 9 if scalar keys %args
93 9 0 unless defined $self->{'aliases'}
112 0 9 unless $self->{'filesystems'}
122 1 13 unless (defined &_INSTANCE($self, 'Sys::Filesystem'))
124 1 0 unless 0 == scalar(@_) % 2
129 0 14 if @_ % 2
135 0 9 unless grep {/^$param$/;} 'mounted', 'unmounted', 'special', 'device', 'regular'
139 0 14 if (exists $params->{'regular'})
143 0 0 if exists $params->{'special'}
151 5 9 unless keys %{$params;}
160 0 333 !exists $fs->{$requirement} && exists $self->{'aliases'}{$requirement} ? :
165 150 36 if defined $params->{$requirement} and exists $fs->{$fsreqname} and $fs->{$fsreqname} eq $params->{$requirement} and push @filesystems, $fsname
170 36 38 unless defined $params->{$requirement} or exists $fs->{$fsreqname}
210 0 482 unless &blessed($self)
211 0 482 unless $fsname
216 0 482 unless exists $self->{'filesystems'}{$fsname}
221 261 221 if exists $fs->{$name}
226 111 110 if exists $self->{'aliases'}{$name} and $name = &first(sub { exists $fs->{$_}; } , @{$$self{'aliases'}{$name};})