#!/usr/bin/env perl

use 5.010;
use strict;
use warnings;

use Sys::Filesystem ();

if (Sys::Filesystem::->supported()) {
    my $fs = Sys::Filesystem::->new();

    say '$Sys::Filesystem::FSTAB: ',
            $Sys::Filesystem::FSTAB // 'undefined';
    say '$fs->{fstab}: ', $fs->{fstab} // 'undefined';
    say "O/S '$^O' supported.";
    say 'Using: ', ref($fs->{filesystems});
    my @fs_list = $fs->filesystems();

    if (@fs_list) {
        say 'Filesystems found:';
        say "\t$_" for @fs_list;
    }
    else {
        warn "No filesystems found.\n";
    }

    use Data::Dump;
    say '=' x 60;
    say 'Sys::Filesystem Object:';
    say '=' x 60;
    dd $fs;
    say '-' x 60;
}
else {
    warn "O/S '$^O' not supported.\n";
}