File Coverage

blib/lib/WebService/BuzzurlAPI/Request.pm

Criterion	Covered	Total	%
statement	29	36	80.5
branch	2	4	50.0
condition	1	3	33.3
subroutine	9	11	81.8
pod	2	2	100.0
total	43	56	76.7

package WebService::BuzzurlAPI::Request;

=pod

=head1 NAME

WebService::BuzzurlAPI::Request - Buzzurl WebService API request package

=head1 VERSION

0.02

=head1 DESCRIPTION

Buzzurl WebService API request package

=head1 METHOD

=cut

use strict;
use base qw(Class::Accessor);
use Carp;
use HTTP::Request;
use Readonly;
use WebService::BuzzurlAPI::Util qw(drop_utf8flag urlencode);

__PACKAGE__->mk_ro_accessors(qw(buzz uri));

our $VERSION = 0.02;

Readonly my @OVERRIDE_METHOD => qw(
                                   filter_param
                                   make_request_url
                                   make_request_content
                                   is_post_request
                                  );

sub import {

    my $class = shift;
    {
        no strict "refs";
        map { *{$_} = sub { croak("\"$_\" abstract method!") } } @OVERRIDE_METHOD;
    }
}

=pod

=head2 new

Create instance

=cut

sub new {

    my($class, %args) = @_;

    if(ref($args{buzz}) ne "WebService::BuzzurlAPI"){
        croak("buzz is not \"WebService::BuzzurlAPI\" object");
    }

    return bless \%args, $class || ref $class;
}

=head2 request

Access API. return HTTP::Response instance

=cut

sub request {

    my($self, %param) = @_;

    $self->filter_param(\%param);
    $self->make_request_url(\%param);

    my @option = ($self->is_post_request) ?
                 ( "POST", $self->uri->as_string, [ "Content-Type", "application/x-www-form-urlencoded" ], $self->make_request_content(\%param) ) :
                 ( "GET", $self->uri->as_string );
    return $self->buzz->ua->request(HTTP::Request->new(@option));
}

1;

__END__