File Coverage

blib/lib/BSD/Getfsent.pm

Criterion	Covered	Total	%
statement	59	59	100.0
branch	10	12	83.3
condition			n/a
subroutine	12	12	100.0
pod	1	1	100.0
total	82	84	97.6

package BSD::Getfsent;

use strict;
use warnings;
use base qw(Exporter);
use boolean qw(true false);

use Carp qw(croak);
use IO::File ();

our ($VERSION, @EXPORT_OK, $ENTRIES, $FSTAB);

$VERSION = '0.18';
@EXPORT_OK = qw(getfsent);
$ENTRIES = __PACKAGE__ . '::_fsents';
$FSTAB = '/etc/fstab';

sub getfsent
{
    if (wantarray) {
        no strict 'refs';

        unless (${$ENTRIES}) {
            @{$ENTRIES} = @{_parse_entries()};
            ${$ENTRIES} = true;
        }

        if (@{$ENTRIES}) {
            return @{shift @{$ENTRIES}};
        }
        else {
            ${$ENTRIES} = false;
            return ();
        }
    }
    else { return _count_entries() }
}

sub _parse_entries
{
    my @entries;
    my $fh = _open_fh();

    while (local $_ = <$fh>) {
        next if /^\#/;

        chomp;
        my @entry = split;

        if ($entry[3] !~ /,/) {                       # In case element 4, fs_type, doesn't
            splice(@entry, 3, 1, '', $entry[3]);      # contain fs_mntops, insert blank fs_mntops
        }                                             # at index 3 and move fs_type to index 4.
        else {                                        # In case element 4 contains fs_type and
            splice(@entry, 3, 1,                      # fs_mntops, switch fs_mntops to index 3 and
              (reverse split ',', $entry[3], 2));     # fs_type to index 4.
        }

        push @entries, [ @entry ];
    }

    _close_fh($fh);

    return \@entries;
}

sub _count_entries
{
    my $counted_entries;

    my $fh = _open_fh();
    $counted_entries++ while <$fh>;
    _close_fh($fh);

    return $counted_entries;
}

sub _open_fh
{
    my $fh = IO::File->new("<$FSTAB")
      or croak "Cannot open $FSTAB: $!";

    return $fh;
}

sub _close_fh
{
    my ($fh) = @_;
    $fh->close;
}

1;
__END__