File Coverage

lib/PagSeguro/API/Resource.pm

Criterion	Covered	Total	%
statement	0	11	0.0
branch	0	2	0.0
condition			n/a
subroutine	0	2	0.0
pod	0	2	0.0
total	0	17	0.0

package PagSeguro::API::Resource;

our $_instance;

sub instance {
    my $class = shift;

    unless ($_instance){
        my $self;

        map{
            chomp;
            my ($k, $v) = split /=/, $_;
            $self->{_res}->{$k} = $v;
        } ;

        $_instance = bless $self, $class;
    }

    return $_instance;
}

# static methods
sub get {
    my ($self, $code) = @_;
    return $self->{_res}->{$code};
}

1;

__DATA__