File Coverage

blib/lib/PX/API/Request.pm

Criterion	Covered	Total	%
statement	15	29	51.7
branch			n/a
condition	0	2	0.0
subroutine	5	7	71.4
pod	1	1	100.0
total	21	39	53.8

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

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

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

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

	my $self = HTTP::Request->new();
	$self->{'method'} = $args->{'method'};
	$self->{'args'} = $args->{'args'};
	$self->{'format'} = $args->{'format'} || "rest";
	bless $self, $class;

	$self->method('GET');
	$self->uri('http://services.peekshows.com/rest/' . $self->_method_to_uri);
	return $self;
	}

sub _method_to_uri {
	my $self = shift;
	my $uri = $self->{'method'};
	$uri =~ s/\./\//g;
	return $uri;
	}


1;
__END__