File Coverage

blib/lib/QualysGuard/Response/AssetDomainList.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package QualysGuard::Response::AssetDomainList;
2              
3 1     1   6157 use warnings;
  1         3  
  1         48  
4 1     1   7 use strict;
  1         4  
  1         50  
5              
6 1     1   7 use base qw( QualysGuard::Response );
  1         2  
  1         111  
7              
8             our $VERSION = '0.01';
9              
10              
11             # =============================================================
12             # - new
13             # =============================================================
14             sub new {
15             my ( $class, $xml ) = @_;
16              
17             my $self = __PACKAGE__->SUPER::new( $xml );
18              
19             bless $self, $class;
20              
21             return $self;
22             }
23              
24              
25             1;
26              
27             __END__