File Coverage

blib/lib/Linux/Mounts.pm

Criterion	Covered	Total	%
statement	6	35	17.1
branch	0	4	0.0
condition	0	8	0.0
subroutine	2	7	28.5
pod	2	5	40.0
total	10	59	16.9

#!/usr/bin/perl -w

package Linux::Mounts;

use strict;
use Carp;

require Exporter;
require DynaLoader;

our @ISA = qw(Exporter DynaLoader);

our $VERSION = 0.2;

sub new {
	my($proto, $file) = shift;
	my $class = ref($proto) || $proto;
	my $self  = { };

	$file ||= '/proc/mounts';

	if (-e $file || -f $file) {
		if (open (MOUNTS, $file)) {
			$self->{_private}->{num_mounts} = 0;
			while () {
				chomp;
				my $cpt = $self->{_private}->{num_mounts};
				push(@{ $self->{_mountinfo}->[$cpt] }, split(/\s/));
				$self->{_private}->{num_mounts}++;
			}
		}
		close(MOUNTS);
	}

	bless $self, $class;

	return $self;
}

sub num_mounts {
	my($self) = @_;

	return $self->{_private}->{num_mounts};
}

sub list_mounts {
	my($self) = @_;

	return $self->{_mountinfo};
}

sub show_mount {
	my($self) = @_;
	my(@lst_f);

	for (my $i = 0; $i < $self->{_private}->{num_mounts}; $i++) {
        	for (my $j = 0; $j < $#{ $self->{_mountinfo} }; $j++) {
			push(@lst_f, $self->{_mountinfo}->[$i][$j]);
        	}
		write;
		undef(@lst_f);
	}

	format STDOUT =
@<<<<<<<<<<<@<<<<<<<<<<<<<<<<<@<<<<<<<<<<<@<<<<<<@<<@<<<
$lst_f[0], $lst_f[1], $lst_f[2], $lst_f[3], $lst_f[4], $lst_f[5]
.

}

sub stat_mount {}

1;

__END__