File Coverage

blib/lib/Device/CableModem/Zoom5341J.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	0	1	0.0
total	25	26	96.1

package Device::CableModem::Zoom5341J;

use strict;
use warnings;

our $VERSION = '1.00';
our @ISA = qw();


sub new
{
	my ($class, %parameters) = @_;

	my $self = {
		# How we get at the modem
		modem_addr => '192.168.100.1',
		username   => 'admin',
		password   => 'password',

		# Runtime data
		conn_html  => undef,
		conn_stats => undef,

		# Overrides
		%parameters,
	};


	bless $self, $class;
	return $self;
}


# Stuff for grabbing the pages from the modem
use Device::CableModem::Zoom5341J::Fetch;

# Parsing the HTML
use Device::CableModem::Zoom5341J::Parse;

# Returning stats to the user
use Device::CableModem::Zoom5341J::Get;



1;
__END__