File Coverage

blib/lib/Net/OpenVAS/OMP/Response.pm

Criterion	Covered	Total	%
statement	49	66	74.2
branch	3	18	16.6
condition			n/a
subroutine	15	23	65.2
pod	15	15	100.0
total	82	122	67.2

package Net::OpenVAS::OMP::Response;

use strict;
use warnings;
use utf8;
use feature ':5.10';

use Net::OpenVAS::Error;

use Carp;
use XML::Hash::XS;

use overload q|""| => 'raw', fallback => 1;

our $VERSION = '0.200';

sub new {

    my ( $class, %args ) = @_;

    my $request  = $args{'request'};
    my $response = $args{'response'};
    my $command  = $request->command;

    croak q/Net::OpenVAS::OMP::Response ( 'request' => ... ) must be "Net::OpenVAS::OMP::Request" instance/
        if ( !ref $request eq 'Net::OpenVAS::OMP::Request' );

    $response =~ s/<\?xml.*?\?>//;    # Remove XML version and encoding from the response for XML report

    my $status      = ( $response =~ /(status)="([^"]*)"/ )[1];
    my $status_text = ( $response =~ /(status_text)="([^"]*)"/ )[1];
    my $error       = undef;

    if ( $status >= 400 ) {
        $error = Net::OpenVAS::Error->new( $status_text, $status );
    }

    my $self = {
        status      => $status + 0,
        raw         => $response,
        request     => $request,
        status_text => $status_text,
        error       => $error,
        result      => eval { xml2hash $response },
    };

    return bless $self, $class;

}

sub result {
    my ($self) = @_;
    return $self->{result};
}

sub error {
    my ($self) = @_;
    return $self->{error};
}

sub status {
    my ($self) = @_;
    return $self->{status};
}

sub is_ok {
    my ($self) = @_;
    return ( $self->status == 200 ) ? 1 : 0;
}

sub is_created {
    my ($self) = @_;
    return ( $self->status == 201 ) ? 1 : 0;
}

sub is_accepted {
    my ($self) = @_;
    return ( $self->status == 202 ) ? 1 : 0;
}

sub is_forbidden {
    my ($self) = @_;
    return ( $self->status == 403 ) ? 1 : 0;
}

sub is_not_found {
    my ($self) = @_;
    return ( $self->status == 404 ) ? 1 : 0;
}

sub is_busy {
    my ($self) = @_;
    return ( $self->status == 409 ) ? 1 : 0;
}

sub is_server_error {
    my ($self) = @_;
    return ( $self->status >= 500 ) ? 1 : 0;
}

sub status_text {
    my ($self) = @_;
    return $self->{status_text};
}

sub raw {
    my ($self) = @_;
    return $self->{raw};
}

sub command {
    my ($self) = @_;
    return $self->{request}->command;
}

sub request {
    my ($self) = @_;
    return $self->{request};
}

1;
__END__