File Coverage

blib/lib/QualysGuard/Response/GenericReturn.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::GenericReturn;

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;

    # -- extract the response status

    $self->{status}         = $self->findvalue('/GENERIC_RETURN/RETURN/@status')->value();
    $self->{status_text}    = $self->getNodeText('/GENERIC_RETURN/RETURN')->value();
    $self->{status_text}    =~ s/^\s+(.*)\s+$/$1/m;

    if ( $self->exists('/GENERIC_RETURN/RETURN/@number') ) {
        $self->{status_code} = $self->findvalue('/GENERIC_RETURN/RETURN/@number')->value();
    }

    if ( $self->{status} eq "FAILED" ) {
        $self->{error_text} = $self->{status_text};
        $self->{error_code} = $self->{status_code};
    }

    return $self;
}



# =============================================================
# - is_success
# =============================================================
sub is_success {
    my $self = shift;
    return ( $self->{status} eq "SUCCESS" ) ? 1 : 0;
}



# =============================================================
# - is_warning
# =============================================================
sub is_warning {
    my $self = shift;
    return ( $self->{status} eq "WARNING" ) ? 1 : 0;
}



# =============================================================
# - status_line
# =============================================================
sub status_line {
    my $self = shift;
    return $self->{status_text};
}



1;

__END__