1 package System::Introspector::MountPoints;
7 mtab => $self->_parse_tab_fh($self->_open_fh('/etc/mtab')),
8 fstab => $self->_parse_tab_fh($self->_open_fh('/etc/fstab')),
13 my ($self, $file) = @_;
14 open my $fh, '<', $file
15 or die "Unable to open $file: $!\n";
22 while (defined( my $line = <$fh> )) {
24 next if $line =~ m{^\s*$}
26 my ($device, $point, $type, $opt, $dump, $pass)
27 = split m{\s+}, $line;
29 device_name => $device,
30 moint_point => $point,
36 my ($name, $value) = split m{=}, $_, 2;
38 unless defined $value;