File Coverage

blib/lib/Business/Giropay/Response/Issuer.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch	0	2	0.0
condition			n/a
subroutine	4	5	80.0
pod	1	1	100.0
total	15	20	75.0

package Business::Giropay::Response::Issuer;

=head1 NAME

Business::Giropay::Response::Issuer - response object for L

=cut

use Business::Giropay::Types qw/Map Maybe Str/;
use Moo;
with 'Business::Giropay::Role::Response';
use namespace::clean;

=head1 ATTRIBUTES

See L for attributes common to
all request classes.

=head2 issuers

A hash reference of issuer banks with BIC as key and name as value.

=cut

has issuers => (
    is  => 'lazy',
    isa => Maybe [ Map [ Str, Str ] ],
    init_arg => undef,
);

sub _build_issuers {
    shift->data->{issuer};
}

=head1 METHODS

See L for methods in addition to
the following:

=head2 has_bic $bic_code

Returns true if C<$bic_code> exists as a key in L.

=cut

sub has_bic {
    my ( $self, $bic ) = @_;
    exists $self->issuers->{$bic} ? 1 : 0;
}

1;