File Coverage

blib/lib/Net/Ifstat.pm

Criterion	Covered	Total	%
statement	22	48	45.8
branch	1	10	10.0
condition	2	8	25.0
subroutine	6	7	85.7
pod	2	2	100.0
total	33	75	44.0

package Net::Ifstat;

use warnings;
use strict;
our $VERSION = '0.01';

use base qw( Class::Accessor::Fast Class::ErrorHandler );
__PACKAGE__->mk_accessors(qw/
		ifstat
		options
		stdin
		stdout
		stderr
		command
		/);

use IPC::Run qw( run );
use Carp qw( carp );

our %options = (
		loopmon		=> '-l',
		allifs		=> '-a',
		hideidelifs	=> '-z',
		helpmsg		=> '-h',
		displayheader	=> '-n',
		ts		=> '-t',
		totalbw		=> '-T',
		ifaceidx	=> '-A',
		fixedcolwidth	=> '-w',
		wraplines	=> '-W',
		linestats	=> '-S',
		bitsstats	=> '-b',
		quietmode	=> '-q',
		verdrivers	=> '-v',

		iflist		=> '-i iflist separated by comma',
		delay		=> '-delay delaysecs',
		count		=> '-count pktcount'
		);

		sub new {
			my $class = shift;
			my $self            =  {
				ifstat          	=> shift || 'ifstat',
				options         => [],
				timeout		=> 0,
			};

			system("$self->{ifstat} -v > /dev/null 2>&1");
			my $ret = $? >> 8;
			if ( $ret != 0 and $ret != 1 ) {
				carp "Can't find ifstat command.";
				exit 0;
			}

			bless $self, $class;
		}

sub execute {
	my ($opts, %h, $delay, $count) = ();

	my $self = shift;
	$opts = $self->{options};

	%h = %{$opts};

	my @ifopts = ();
	for my $key (keys(%h)) {
		my $value = $h{$key};
		if($key =~ /\-delay/) {
			$delay = $value;
			next;
		}
		if($key =~ /\-count/) {
			$count = $value;
			next;
		}
		if(int($value) != 1) {
			push @ifopts, $key . ' ' . $value;
		} else {
			push @ifopts, $key;
		}

	}
	my $cmd = $self->{ifstat};
	my $ifoptsline = join ' ', @ifopts;

	if(defined($delay) and defined($count)) {
		$ifoptsline = $ifoptsline . " " . join " ", $delay, $count;
	}

	my $fullcmd = $cmd . " " . $ifoptsline ;

	my @runcmd = split / /, $fullcmd;

	run \@runcmd;
	return 0;

}

*exec = \&execute;

__END__