File Coverage

blib/lib/Filesys/Type/Plugin/Unix.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	9	12	75.0
condition	2	4	50.0
subroutine	4	4	100.0
pod	0	3	0.0
total	36	44	81.8

package Filesys::Type::Plugin::Unix;
use strict;

our $VERSION = 0.02;
our ($df,$mounted,$err);

sub new {
    my $pkg = shift;

#Check we really are on a Unix type operating system
    return undef unless -d '/etc';

    bless {}, $pkg;
}

sub fstype {
    my ($self,$path) = @_;
    $err = '';

    $df = `df $path 2>/dev/null`;
    $err = 'df command failed' unless $df;
    $mounted = `mount 2>/dev/null`;   # Does not need root
    $err = 'mount command failed' unless $df;
    return undef if $err;

    my ($mounted_fs) = $df =~ /\d\%\s(\S+)/;
    $err = 'df output did not parse' unless $mounted_fs;
    return undef if $err;

    my ($fstype) = $mounted =~ /on\s$mounted_fs\stype\s(\w+)/;
    $fstype;
}

sub diagnose {
    $df ||= 'undef';
    $mounted ||= 'undef';
    <
$err

df command returned: $df

mount command returned: $mounted

END
}
1;