File Coverage

blib/lib/QualysGuard/Response/TicketEdit.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::TicketEdit;
2              
3 1     1   2202 use warnings;
  1         3  
  1         43  
4 1     1   8 use strict;
  1         3  
  1         45  
5              
6 1     1   7 use base qw( QualysGuard::Response );
  1         2  
  1         113  
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             # -- check for QualysGuard function error
22              
23             if ( $self->exists('/TICKET_EDIT_OUTPUT/ERROR') ) {
24             $self->{error_code} = $self->findvalue('/TICKET_EDIT_OUTPUT/ERROR/@number');
25             $self->{error_text} = $self->getNodeText('/TICKET_EDIT_OUTPUT/ERROR');
26             $self->{error_text} =~ s/^\s+(.*)\s+$/$1/m;
27             }
28              
29             return $self;
30             }
31              
32              
33             1;
34              
35             __END__