File Coverage

blib/lib/FusionInventory/Agent/XML/Response.pm

Criterion	Covered	Total	%
statement	19	24	79.1
branch	3	6	50.0
condition			n/a
subroutine	5	6	83.3
pod	3	3	100.0
total	30	39	76.9

package FusionInventory::Agent::XML::Response;

use strict;
use warnings;

use XML::TreePP;

sub new {
    my ($class, %params) = @_;

    my $tpp = XML::TreePP->new(
        force_array   => [ qw/
            OPTION PARAM MODEL AUTHENTICATION RANGEIP DEVICE GET WALK
            / ],
        attr_prefix   => '',
        text_node_key => 'content'
    );
    my $content = $tpp->parse($params{content});

    die "content is not an XML message" unless ref $content eq 'HASH';
    die "content is an invalid XML message" unless defined($content->{REPLY});

    my $self = {
        content => $content->{REPLY}
    };

    bless $self, $class;

    return $self;
}

sub getContent {
    my ($self) = @_;

    return $self->{content};
}

sub getOptionsInfoByName {
    my ($self, $name) = @_;

    return unless $self->{content}->{OPTION};

    return
        grep { $_->{NAME} eq $name }
        @{$self->{content}->{OPTION}};
}

1;

__END__