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


line stmt bran cond sub pod time code
1             package Finance::Bank::Postbank_de::APIv1::Account;
2 9     9   64 use Moo;
  9         21  
  9         53  
3 9     9   2566 use Filter::signatures;
  9         22  
  9         56  
4 9     9   341 no warnings 'experimental::signatures';
  9         20  
  9         292  
5 9     9   69 use feature 'signatures';
  9         123  
  9         4622  
6             extends 'HAL::Resource';
7              
8             our $VERSION = '0.55';
9              
10             =head1 NAME
11              
12             Finance::Bank::Postbank_de::APIv1::Account - Postbank Account
13              
14             =head1 SYNOPSIS
15              
16             =cut
17              
18             has [ 'accountHolder', 'name', 'iban', 'currency', 'amount',
19             'productType',
20             ] => ( is => 'ro' );
21              
22 0     0 0 0 sub transactions_future( $self ) {
  0         0  
  0         0  
23 0     0   0 $self->fetch_resource_future( 'transactions' )->then(sub( $r ) {
  0         0  
  0         0  
24             $self->inflate_list(
25             'Finance::Bank::Postbank_de::APIv1::Transaction',
26             $r->_embedded->{transactionDTOList}
27             )
28 0         0 });
  0         0  
29             }
30              
31 0     0 0 0 sub transactions( $self ) {
  0         0  
  0         0  
32 0         0 $self->transactions_future->get
33             }
34              
35 11     11 0 22 sub transactions_csv_future( $self ) {
  11         22  
  11         23  
36 11     11   29 $self->fetch_resource_future( 'transactions' )->then(sub( $r ) {
  11         1945  
  11         35  
37 11         508 my $tr = HAL::Resource->new( %$r );
38 11         416 $self->ua->get( $tr->resource_url('transactions_csv' ));
39 11         617172 Future->done( $self->ua->content );
40 11         81 });
41             }
42              
43 11     11 0 29 sub transactions_csv( $self ) {
  11         29  
  11         20  
44 11         53 $self->transactions_csv_future->get
45             }
46              
47 0     0 0   sub transactions_xml_future( $self ) {
  0            
  0            
48 0     0     $self->fetch_resource_future( 'transactions' )->then(sub( $r ) {
  0            
  0            
49 0           my $tr = HAL::Resource->new( %$r );
50 0           $self->ua->get( $tr->resource_url('transactions_xml' ));
51 0           Future->done( $self->ua->content );
52 0           });
53             }
54              
55 0     0 0   sub transactions_xml( $self ) {
  0            
  0            
56 0           $self->transactions_xml_future->get
57             }
58              
59             1;
60              
61             =head1 AUTHOR
62              
63             Max Maischein, E<lt>corion@cpan.orgE<gt>
64              
65             =head1 SEE ALSO
66              
67             L<perl>, L<WWW::Mechanize>.
68              
69             =head1 REPOSITORY
70              
71             The public repository of this module is
72             L<https://github.com/Corion/Finance-Bank-Postbank_de>.
73              
74             =head1 SUPPORT
75              
76             The public support forum of this module is
77             L<https://perlmonks.org/>.
78              
79             =head1 BUG TRACKER
80              
81             Please report bugs in this module via the RT CPAN bug queue at
82             L<https://rt.cpan.org/Public/Dist/Display.html?Name=Finance-Bank-Postbank_de>
83             or via mail to L<finance-bank-postbank_de-Bugs@rt.cpan.org>.
84              
85             =head1 COPYRIGHT (c)
86              
87             Copyright 2003-2018 by Max Maischein C<corion@cpan.org>.
88              
89             =head1 LICENSE
90              
91             This module is released under the same terms as Perl itself.
92              
93             =cut