File Coverage

blib/lib/Business/Giropay/Request/Bankstatus.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	2	2	100.0
condition			n/a
subroutine	7	7	100.0
pod	3	3	100.0
total	28	28	100.0

package Business::Giropay::Request::Bankstatus;

=head1 NAME

Business::Giropay::Request::Bankstatus - check whether bank with L is valid.

=cut

use Business::Giropay::Types qw/Str/;
use Carp;
use Moo;
with 'Business::Giropay::Role::Request';
use namespace::clean;

=head1 ATTRIBUTES

See L for attributes common to
all request classes.

=head2 bic

Bank BIC code.

=cut

has bic => (
    is       => 'rwp',
    isa      => Str,
    required => 1,
);

=head2 response_class

The response class to use. Defaults to
L.

=cut

has response_class => (
    is      => 'ro',
    isa     => Str,
    default => "Business::Giropay::Response::Bankstatus",
);

=head1 METHODS

See L in addition to the following:

=head2 BUILD

Die if this request type is not available for
L.

=cut

sub BUILD {
    my $self = shift;
    croak "bankstatus request not supported by ideal"
      if $self->network eq 'ideal';
}

=head2 parameters

Returns additional parameters for the request.

=cut

sub parameters {
    return ['bic'];
}

=head2 uri

Returns the URI to be appended to L
to construct the appropriate URL for the request.

=cut

sub uri {
    return shift->network . '/bankstatus';
}

1;