File Coverage

blib/lib/Business/Giropay/Response/Bankstatus.pm
Criterion Covered Total %
statement 13 15 86.6
branch n/a
condition n/a
subroutine 6 8 75.0
pod n/a
total 19 23 82.6


line stmt bran cond sub pod time code
1             package Business::Giropay::Response::Bankstatus;
2              
3             =head1 NAME
4              
5             Business::Giropay::Response::Bankstatus - response object for L
6              
7             =cut
8              
9 1     1   16532 use Business::Giropay::Types qw/Bool Int Map Maybe Str/;
  1         3  
  1         7  
10 1     1   1150 use Moo;
  1         8402  
  1         5  
11             with 'Business::Giropay::Role::Response';
12 1     1   1458 use namespace::clean;
  1         7575  
  1         4  
13              
14             =head1 ATTRIBUTES
15              
16             See L for attributes common to
17             all request classes.
18              
19             =head2 bankcode
20              
21             Numeric bank code.
22              
23             =cut
24              
25             has bankcode => (
26             is => 'lazy',
27             isa => Maybe [Int],
28             init_arg => undef,
29             );
30              
31             sub _build_bankcode {
32 1     1   647 shift->data->{bankcode};
33             }
34              
35             =head2 bic
36              
37             Bank's BIC code
38              
39             =cut
40              
41             has bic => (
42             is => 'lazy',
43             isa => Maybe [Str],
44             init_arg => undef,
45             );
46              
47             sub _build_bic {
48 0     0   0 shift->data->{bic};
49             }
50              
51             =head2 bankname
52              
53             Bank name.
54              
55             =cut
56              
57             has bankname => (
58             is => 'lazy',
59             isa => Maybe [Str],
60             init_arg => undef,
61             );
62              
63             sub _build_bankname {
64 1     1   797 shift->data->{bankname};
65             }
66              
67             =head2 supported
68              
69             1 = payment via this bank/issuer is supported
70             0 = payment via this bank/issuer is not supported
71              
72             =cut
73              
74             has supported => (
75             is => 'lazy',
76             isa => Maybe [Bool],
77             init_arg => undef,
78             );
79              
80             sub _build_supported {
81 2     2   1033 my $self = shift;
82 2         6 return $self->data->{ $self->network };
83             }
84              
85             =head2 giropayid
86              
87             Only applicable for giropay (not eps, etc).
88              
89             1 = giropay-ID and giropay-ID + giropay is supported
90             0 = giropay-ID and giropay-ID + giropay is not supported
91              
92             =cut
93              
94             has giropayid => (
95             is => 'lazy',
96             isa => Maybe [Bool],
97             init_arg => undef,
98             );
99              
100             sub _build_giropayid {
101 0     0     shift->data->{giropayid};
102             }
103              
104             =head1 METHODS
105              
106             See L.
107              
108             =cut
109              
110             1;