File Coverage

blib/lib/Ipernity/API/Request.pm

Criterion	Covered	Total	%
statement	12	33	36.3
branch	0	4	0.0
condition			n/a
subroutine	4	6	66.6
pod	2	2	100.0
total	18	45	40.0

# Iperntiy::API::Request
#
# Contact: doomy [at] dokuleser [dot] org
# Copyright 2008 Winfried Neessen
#
# $Id$
# Last modified: [ 2011-01-13 12:32:58 ]

### Module definitions {{{
package Ipernity::API::Request;
use strict;
use warnings;
use HTTP::Request;
use URI;

our @ISA = qw(Ipernity::API HTTP::Request);
our $VERSION = '0.09';
# }}}

### Module constructor {{{
sub new
{

	### Define class and object and read arguments
	my ( $class, %args ) = @_;
	my $self = new HTTP::Request;

	## Initalize placeholder for API signature
	$self->{ 'api_sig' } = {};

	### Some static definitions
	$self->method( 'POST' );
	$self->uri( 'http://api.ipernity.com/api/' );
	$self->header( 'User-Agent' => 'Ipernity::API v' . $Ipernity::API::VERSION );

	### Assign arguments to my object
	foreach my $key ( keys %args )
	{

		$self->{ 'args' }->{ $key } = $args{ $key };

	}

	### We need a method to call at least!
	warn 'Please provide at least a calling method' unless( defined( $self->{ 'args' }->{ 'method' } ) );

	### Reference object to class
	bless $self, $class;
	return $self;

}
# }}}

### Encode arguements and build a HTTP request // encode() {{{
sub encode
{
	### Get objects
	my $self = shift;

	### Build an URI object
	my $uri = URI->new( 'http:' );

	### Build an HTTP valid request URI
	delete( $self->{ 'args' }->{ 'method' } );
	$uri->query_form( $self->{ 'args' } );
	my $content = $uri->query;
	my $length = length( $content );

	### Add POST fields to HTTP header
	$self->header( 'Content-Type' => 'application/x-www-form-urlencoded' );
	if( defined( $content ) )
	{

		$self->header( 'Content-Length' => $length );
		$self->content( $content );

	}

}
# }}}


1;
__END__