File Coverage

blib/lib/PX/API/Response/Rest.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

package PX::API::Response::Rest;
use warnings;
use strict;
use Carp;

use version; our $VERSION = qv('0.0.3');

use XML::Simple;

sub new {
	my $class = shift;
	my $args  = shift || {};

	$class = ref($class) || $class;
	my $self = bless {}, $class;
	$self->{'xs'} = XML::Simple->new(KeepRoot => 1, KeyAttr => []);
	return $self;
	}

sub parse {
	my $self = shift;
	my $xml  = shift;

	my $xs = $self->{'xs'};
	my $ref = $xs->XMLin($xml);
	return $ref;
	}

sub format { 'rest' }


1;
__END__