File Coverage

blib/lib/Net/DNS/Check/Test/unknown.pm
Criterion Covered Total %
statement 6 11 54.5
branch n/a
condition n/a
subroutine 2 4 50.0
pod 0 2 0.0
total 8 17 47.0


line stmt bran cond sub pod time code
1             package Net::DNS::Check::Test::unknown;
2              
3 1     1   4 use strict;
  1         2  
  1         31  
4 1     1   5 use vars qw(@ISA $VERSION);
  1         14  
  1         119  
5              
6             @ISA = qw(Net::DNS::Check::Test);
7              
8              
9             sub new {
10 0     0 0   my ($class) = shift;
11 0           my ($self) = {};
12              
13 0           return bless $self, $class;
14             }
15              
16             sub test {
17 0     0 0   my ($self) = shift;
18              
19 0           return;
20             }
21              
22             1;
23              
24             __END__