File Coverage

blib/lib/Finance/Bank/Postbank_de/APIv1/Account.pm

Criterion	Covered	Total	%
statement	26	52	50.0
branch			n/a
condition			n/a
subroutine	7	13	53.8
pod	0	6	0.0
total	33	71	46.4

package Finance::Bank::Postbank_de::APIv1::Account;
use Moo;
use Filter::signatures;
no warnings 'experimental::signatures';
use feature 'signatures';
extends 'HAL::Resource';

our $VERSION = '0.55';

=head1 NAME

Finance::Bank::Postbank_de::APIv1::Account - Postbank Account

=head1 SYNOPSIS

=cut

has [ 'accountHolder', 'name', 'iban', 'currency', 'amount',
      'productType',
    ] => ( is => 'ro' );

sub transactions_future( $self ) {
    $self->fetch_resource_future( 'transactions' )->then(sub( $r ) {
        $self->inflate_list(
            'Finance::Bank::Postbank_de::APIv1::Transaction',
            $r->_embedded->{transactionDTOList}
        )
    });
}

sub transactions( $self ) {
    $self->transactions_future->get
}

sub transactions_csv_future( $self ) {
    $self->fetch_resource_future( 'transactions' )->then(sub( $r ) {
        my $tr = HAL::Resource->new( %$r );
        $self->ua->get( $tr->resource_url('transactions_csv' ));
        Future->done( $self->ua->content );
    });
}

sub transactions_csv( $self ) {
    $self->transactions_csv_future->get
}

sub transactions_xml_future( $self ) {
    $self->fetch_resource_future( 'transactions' )->then(sub( $r ) {
        my $tr = HAL::Resource->new( %$r );
        $self->ua->get( $tr->resource_url('transactions_xml' ));
        Future->done( $self->ua->content );
    });
}

sub transactions_xml( $self ) {
    $self->transactions_xml_future->get
}

1;

=head1 AUTHOR

Max Maischein, E<lt>[e-mail]<gt>

=head1 SEE ALSO

L<perl>, L<WWW::Mechanize>.

=head1 REPOSITORY

The public repository of this module is
L<https://github.com/Corion/Finance-Bank-Postbank_de>.

=head1 SUPPORT

The public support forum of this module is
L<https://perlmonks.org/>.

=head1 BUG TRACKER

Please report bugs in this module via the RT CPAN bug queue at
L<https://rt.cpan.org/Public/Dist/Display.html?Name=Finance-Bank-Postbank_de>
or via mail to L<[e-mail]>.

=head1 COPYRIGHT (c)

Copyright 2003-2018 by Max Maischein C<[e-mail]>.

=head1 LICENSE

This module is released under the same terms as Perl itself.

=cut