File Coverage

lib/PagSeguro/API/Base.pm

Criterion	Covered	Total	%
statement	12	25	48.0
branch	0	6	0.0
condition	0	12	0.0
subroutine	4	8	50.0
pod	0	4	0.0
total	16	55	29.0

package PagSeguro::API::Base;
use strict;
use warnings;

use LWP::UserAgent;
use PagSeguro::API::Resource;

sub new {
    return bless {}, shift;
}

# accessors
sub resource {
    my $self = shift;

    # return resources key
    my $res = PagSeguro::API::Resource->instance;
    return ($res->get($_[0]) || undef) if $_[0];
}

# method
sub get {
    my ($self, $url) = @_;

    my $ua = LWP::UserAgent->new;
    my $response = $ua->get($url) || undef;

    # success
    return $response->decoded_content
        if $response && $response->is_success
}

sub post {
    my ($self, $url, $params) = @_;

    my $ua = LWP::UserAgent->new;
    my $response = $ua->post($url, $params) || undef;

    # success
    return $response->decoded_content
        if $response && $response->is_success;

    # error
    return $response->status_line;
}


1;