File Coverage

blib/lib/QualysGuard/Response/RemediationTickets.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

package QualysGuard::Response::RemediationTickets;

use warnings;
use strict;

use base qw( QualysGuard::Response );

our $VERSION = '0.01';


# =============================================================
# - new
# =============================================================
sub new {
    my ( $class, $xml ) = @_;

    my $self = __PACKAGE__->SUPER::new( $xml );

    bless $self, $class;

    # -- check for QualysGuard function error

    if ( $self->exists('/REMEDIATION_TICKETS/ERROR') ) {
        $self->{error_code} = $self->findvalue('/REMEDIATION_TICKETS/ERROR/@number');
        $self->{error_text} = $self->getNodeText('/REMEDIATION_TICKETS/ERROR');
        $self->{error_text} =~ s/^\s+(.*)\s+$/$1/m;
    }

    return $self;
}


1;

__END__