File Coverage

blib/lib/Device/CableModem/Zoom5341.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::Zoom5341;

use strict;
use warnings;

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


# We'll do this OO
sub new
{
	my ($class, %parameters) = @_;

	my $self = {
		# Config
		modem_addr => '192.168.100.1',

		# 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::Zoom5341::Fetch;

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

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



1;
__END__