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 |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | package PagSeguro::API::Resource; | ||||||
2 | |||||||
3 | our $_instance; | ||||||
4 | |||||||
5 | sub instance { | ||||||
6 | 0 | 0 | 0 | my $class = shift; | |||
7 | |||||||
8 | 0 | 0 | unless ($_instance){ | ||||
9 | 0 | my $self; | |||||
10 | |||||||
11 | 0 | map{ | |||||
12 | 0 | chomp; | |||||
13 | 0 | my ($k, $v) = split /=/, $_; | |||||
14 | 0 | $self->{_res}->{$k} = $v; | |||||
15 | } ; | ||||||
16 | |||||||
17 | 0 | $_instance = bless $self, $class; | |||||
18 | } | ||||||
19 | |||||||
20 | 0 | return $_instance; | |||||
21 | } | ||||||
22 | |||||||
23 | # static methods | ||||||
24 | sub get { | ||||||
25 | 0 | 0 | 0 | my ($self, $code) = @_; | |||
26 | 0 | return $self->{_res}->{$code}; | |||||
27 | } | ||||||
28 | |||||||
29 | 1; | ||||||
30 | |||||||
31 | __DATA__ |