File Coverage

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

use warnings;
use strict;

use base qw( QualysGuard::Response );
use Scalar::Util qw( reftype );

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('/MAP_REPORT_LIST/ERROR') ) {
        $self->{error_code} = $self->findvalue('/MAP_REPORT_LIST/ERROR/@number');
        $self->{error_text} = $self->getNodeText('/MAP_REPORT_LIST/ERROR');
        $self->{error_text} =~ s/^\s+(.*)\s+$/$1/m;
    }

    return $self;
}



# =============================================================
# - get_map_refs
# =============================================================
sub get_map_refs {
    my $self    = shift;
    my @nodes   = $self->findnodes('/MAP_REPORT_LIST/MAP_REPORT');
    my $rv      = {};

    foreach my $node ( @nodes ) {
        my $key = $node->getAttribute( 'domain' );
        my $val = $node->getAttribute( 'ref' );

        if ( exists $rv->{$key} ) {

            if ( reftype( \$rv->{$key} ) eq 'SCALAR' ) {
                $rv->{$key} = [ $rv->{$key} ];
                push( @{$rv->{$key}}, $val );
            }

            elsif ( reftype( $rv->{$key} ) eq 'ARRAY' ) {
                push( @{$rv->{$key}}, $val );
            }
        }

        else {
            $rv->{$key} = $val;
        }
    }

    return $rv;
}



1;

__END__