File Coverage

blib/lib/Device/CableModem/Zoom5341J/Test.pm
Criterion Covered Total %
statement 12 12 100.0
branch 1 2 50.0
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 16 18 88.8


line stmt bran cond sub pod time code
1 2     2   1141 use strict;
  2         2  
  2         56  
2 2     2   7 use warnings;
  2         2  
  2         210  
3              
4             package Device::CableModem::Zoom5341J;
5              
6              
7             =head1 NAME
8              
9             Device::CableModem::Zoom5341J::Test
10              
11             =head1 NOTA BENE
12              
13             This is part of the guts of Device::CableModem::Zoom5341J. If you're
14             reading this, you're either developing the module, writing tests, or
15             coloring outside the lines; consider yourself warned.
16              
17             =cut
18              
19              
20             =head2 ->load_test_data
21              
22             Loads sample data for tests
23             =cut
24             sub load_test_data
25             {
26 2     2 0 1175 my $self = shift;
27 2         5 my $samfile = shift;
28              
29 2 50       87 open my $sdf, '<', $samfile or die "Couldn't load sample data: $@";
30 2         82 my $html = join '', <$sdf>;
31 2         28 close $sdf;
32              
33 2         17 $self->{conn_html} = $html;
34             }
35              
36              
37             1;
38             __END__