File Coverage

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

use warnings;
use strict;

use base qw( QualysGuard::Response );

our $VERSION = '0.03';


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

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

    bless $self, $class;

    # -- check for QualysGuard function error

    if ( $self->exists('/HOST_LIST/ERROR') ) {
        $self->{error_code} = $self->findvalue('/HOST_LIST/ERROR/@number');
        $self->{error_text} = $self->getNodeText('/HOST_LIST/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('/HOST_LIST/RESULTS/HOST/IP');
    my @rv = ();

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

    return \@rv;
}



1;

__END__