File Coverage

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

use warnings;
use strict;

use base qw( QualysGuard::Response );

our $VERSION = '0.02';


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

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

    bless $self, $class;

    # -- check for QualysGuard function error

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

    return $self;
}



# =============================================================
# - get_ip_address_list
# =============================================================
sub get_ip_address_list {
    my $self    = shift;
    my @nodes   = $self->findnodes('/ASSET_SEARCH_REPORT/HOST_LIST/HOST/IP');
    my @rv      = ();

    foreach my $node ( @nodes ) {
        push( @rv, $node->string_value() );
    }

    return \@rv;
}



1;

__END__