File Coverage

lib/PagSeguro/API.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package PagSeguro::API;
# ABSTRACT: PagSeguro::API - UOL PagSeguro Payment Gateway API Module
use strict;
use warnings;

our $VERSION = '0.006';

use PagSeguro::API::Checkout;
use PagSeguro::API::Transaction;
use PagSeguro::API::Notification;

# constructor
sub new {
    my $class = shift;
    my $args = (@_ % 2 == 0)? {@_} : shift;

    # check env vars
    $args->{email} = $ENV{PAGSEGURO_API_EMAIL} || undef
        unless $args->{email};

    $args->{token} = $ENV{PAGSEGURO_API_TOKEN} || undef
        unless $args->{token};

    # enable sandbox
    $ENV{PAGSEGURO_API_SANDBOX} = $args->{sandbox}
        if $args->{sandbox};

    # enable debug
    $ENV{PAGSEGURO_API_DEBUG} = $args->{debug}
        if $args->{debug};

    return bless {
        _email => $args->{email} || undef,
        _token => $args->{token} || undef,

        # load resources
        _resources => PagSeguro::API::Resource->new
    }, $class;
}

# accessors
sub email {
    $_[0]->{_email} = $_[1] if $_[1];
    return shift->{_email};
}

sub token {
    $_[0]->{_token} = $_[1] if $_[1];
    return shift->{_token};
}

sub debug {
    $_[0]->{_debug} = $_[1] if $_[1];
    return shift->{_debug};
}

sub sandbox {
    $_[0]->{_sandbox} = $_[1] if $_[1];
    return shift->{_sandbox};
}
sub resource {
    return $_[0]->{_resources}->get($_[1]) if $_[1];
    return $_[0]->{_resources};
}

# methods
sub transaction {
    my $self = shift;

    # setting auth
    $self->_set_auth(@_) if @_;

    return PagSeguro::API::Transaction->new( context => $self );
}

sub notification {
    my $self = shift;

    # setting auth
    $self->_set_auth(@_) if @_;

    return PagSeguro::API::Notification->new( context => $self );
}

sub checkout {
    my $self = shift;

    # setting auth
    $self->_set_auth(@_) if @_;

    return PagSeguro::API::Checkout->new( context => $self );
}

sub _set_auth {
    my $self = shift;
    my $args = (@_ % 2 == 0)? {@_}: shift;

    $self->email($args->{email}) if $args->{email};
    $self->email($args->{token}) if $args->{token};
}

1;
__END__