File Coverage

blib/lib/Device/CableModem/Zoom5341/Test.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	25	27	92.5

use strict;
use warnings;

package Device::CableModem::Zoom5341;


=head1 NAME

Device::CableModem::Zoom5341::Test

=head1 NOTA BENE

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

=cut


=head2 ->load_test_data

Loads sample data for tests
=cut
sub load_test_data
{
	my $self = shift;

	# We're assuming this is run via 'make test'.  Which is strictly
	# speaking Wrong(tm).  But it works well enough for now...
	# overthink things when it becomes necessary.
	use File::Basename qw(dirname);
	use File::Spec;
	my $sampledata = File::Spec->catfile(dirname($0), 'rf_connection.sample');
	open my $sdf, '<', $sampledata or die "Couldn't load sample data: $@";
	my @html = <$sdf>;
	close $sdf;

	chomp @html;
	$self->{conn_html} = \@html;
}


1;
__END__