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;
use strict;
use warnings;
our $VERSION = '0.004';

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

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

    # start resource
    PagSeguro::API::Resource->instance;

    # 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,

        _checkout     => undef,
        _transaction  => undef,
        _notification => undef,
    }, $class;
}

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

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

# methods
sub transaction {
    my $self = shift;

    # error
    die "Exception: e-mail or token undef"
        unless $self->email && $self->token;

    # manual instance
    $self->{_transaction} = $_[0]
        if $_[0] && $_[0]->isa('PagSeguro::API::Transaction');


    $self->{_transaction} = PagSeguro::API::Transaction->new(
        email => $self->email, token => $self->token
    ) unless $self->{_transaction};

    return $self->{_transaction};
}

sub notification {
    my $self = shift;

    # error
    die "Exception: e-mail or token undef"
        unless $self->email && $self->token;

    # manual instance
    $self->{_notification} = $_[0]
        if $_[0] && $_[0]->isa('PagSeguro::API::Notification');


    $self->{_notification} = PagSeguro::API::Notification->new(
        email => $self->email, token => $self->token
    ) unless $self->{_notification};

    return $self->{_notification};
}

sub checkout {
    my $self = shift;

    # error
    die "Exception: e-mail or token undef"
        unless $self->email && $self->token;

    # manual instance
    $self->{_checkout} = $_[0]
        if $_[0] && $_[0]->isa('PagSeguro::API::Checkout');


    $self->{_checkout} = PagSeguro::API::Checkout->new(
        email => $self->email, token => $self->token
    ) unless $self->{_checkout};

    return $self->{_checkout};
}


1;
__END__