File Coverage

blib/lib/Device/CableModem/Zoom5341J/Parse.pm

Criterion	Covered	Total	%
statement	70	70	100.0
branch	17	20	85.0
condition	4	6	66.6
subroutine	4	4	100.0
pod	0	1	0.0
total	95	101	94.0

use strict;
use warnings;

use Carp;


=head1 NAME

Device::CableModem::Zoom5341J::Parse

=head1 NOTA BENE

This is part of the guts of Device::CableModem::Zoom5341J.  If you're
reading this, you're either developing the module, writing tests, or
coloring outside the lines; consider yourself warned.

=cut


=head2 ->parse_conn_stats

Parse out all the connection status bits.
=cut
sub parse_conn_stats
{
	my $self = shift;

	$self->fetch_data unless $self->{conn_html};
	croak "No HTML stashed" unless $self->{conn_html};

	# First extract out a fragment that contains all the downstream and
	# upstream data
	my ($dsfrag) = ($self->{conn_html} =~
			m#Downstream Bonded Channels(.+?)