File Coverage

blib/lib/Linux/net/dev.pm

Criterion	Covered	Total	%
statement	27	32	84.3
branch	4	10	40.0
condition			n/a
subroutine	5	7	71.4
pod	3	3	100.0
total	39	52	75.0

package Linux::net::dev;

require 5.000;
use strict;
use warnings;
use Carp;

require Exporter;
use AutoLoader qw(AUTOLOAD);

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Linux::net::dev ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(

) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(

);
our $VERSION = '1.00';

# Preloaded methods go here.

sub info {
  return {} unless -r "/proc/net/dev";
  open(DEV, "/proc/net/dev");
  my (@titles, %result);
  while (my $line = ) {
    chomp($line);
    if ($line =~ /^.{6}\|([^\\]+)\|([^\\]+)$/) {
      my ($rec, $trans) = ($1, $2);
      @titles = (
        (map { "r$_" } split(/\s+/, $rec)),
        (map { "t$_" } split(/\s+/, $trans)),
      );
    } elsif ($line =~ /^\s*([^:]+):\s*(.*)$/) {
      my ($id, @data) = ($1, split(/\s+/, $2));
      $result{$id} = { map {
        $titles[$_] => $data[$_];
      } (0..$#titles) };
    }
  }
  close(DEV);
  return \%result;
}

sub dev {
  croak "Missing parameter" unless @_;
  return info()->{$_[0]};
}

sub devs {
  croak "Missing parameters" unless @_;
  return @{info()}{@_};
}

# Autoload methods go after =cut, and are processed by the autosplit program.

1;
__END__