File Coverage

blib/lib/PX/API/Response.pm

Criterion	Covered	Total	%
statement	16	18	88.8
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	22	24	91.6

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

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

use HTTP::Response;
our @ISA = qw(HTTP::Response);

use Module::Pluggable::Fast
	name => 'response_plugins',
	search => [ qw/PX::API::Response/ ];


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

	my $self = HTTP::Response->new();
	return bless $self, $class;
	}

sub _init {
	my $self = shift;
	my $args = shift;
	my $format = $args->{'format'} || "rest";

	my @classes = $self->response_plugins;
	foreach my $c(@classes) {
		if ($c->format eq $format) {
			$self->{'parser'} = $c;
			last;
			}
		}
	return $self;
	}

sub fault {
	my ($self,$err_code,$err_string) = @_;
	$self->{success} = 0;
	$self->{err_code} = $err_code;
	$self->{err_string} = $err_string;
	}

sub success {
	my ($self,$ref) = @_;
	$self->{success} = 1;
	$self->{response} = $ref;
	}


1;
__END__