File Coverage

blib/lib/Finance/Bank/Postbank_de/APIv1/Finanzstatus.pm
Criterion Covered Total %
statement 27 27 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 0 2 0.0
total 35 37 94.5


line stmt bran cond sub pod time code
1             package Finance::Bank::Postbank_de::APIv1::Finanzstatus;
2 9     9   74 use Moo;
  9         26  
  9         78  
3 9     9   3220 use Filter::signatures;
  9         23  
  9         63  
4 9     9   271 no warnings 'experimental::signatures';
  9         20  
  9         336  
5 9     9   63 use feature 'signatures';
  9         24  
  9         851  
6             extends 'HAL::Resource';
7              
8 9     9   4070 use Finance::Bank::Postbank_de::APIv1::BusinessPartner;
  9         95  
  9         317  
9 9     9   4261 use Finance::Bank::Postbank_de::APIv1::Message;
  9         29  
  9         1818  
10              
11             our $VERSION = '0.55';
12              
13             =head1 NAME
14              
15             Finance::Bank::Postbank_de::APIv1::Finanzstatus - Postbank Finanzstatus
16              
17             =head1 SYNOPSIS
18              
19             my $finanzstatus = $postbank->navigate(
20             class => 'Finance::Bank::Postbank_de::APIv1::Finanzstatus',
21             path => ['banking_v1' => 'financialstatus']
22             );
23              
24             =cut
25              
26             has [ 'businesspartners',
27             'amount',
28             'brokerageable',
29             'hash',
30             'md5Hash',
31             'messages',
32             'name',
33             'selectUser',
34             'teaserUrl'.
35             'totalAmount',
36             ] => ( is => 'ro' );
37              
38 1     1 0 18 sub available_messages( $self ) {
  1         2  
  1         2  
39 1         8 my $mb = $self->fetch_resource( 'messagebox' );
40             $self->inflate_list(
41             'Finance::Bank::Postbank_de::APIv1::Message',
42             $mb->_embedded->{notificationDTOList}
43 1         180 );
44             }
45              
46 2     2 0 7 sub get_businesspartners( $self ) {
  2         6  
  2         65  
47 2         21 $self->inflate_list(
48             'Finance::Bank::Postbank_de::APIv1::BusinessPartner',
49             $self->businesspartners
50             );
51             }
52              
53             1;
54              
55             =head1 AUTHOR
56              
57             Max Maischein, E<lt>corion@cpan.orgE<gt>
58              
59             =head1 SEE ALSO
60              
61             L<perl>, L<WWW::Mechanize>.
62              
63             =head1 REPOSITORY
64              
65             The public repository of this module is
66             L<https://github.com/Corion/Finance-Bank-Postbank_de>.
67              
68             =head1 SUPPORT
69              
70             The public support forum of this module is
71             L<https://perlmonks.org/>.
72              
73             =head1 BUG TRACKER
74              
75             Please report bugs in this module via the RT CPAN bug queue at
76             L<https://rt.cpan.org/Public/Dist/Display.html?Name=Finance-Bank-Postbank_de>
77             or via mail to L<finance-bank-postbank_de-Bugs@rt.cpan.org>.
78              
79             =head1 COPYRIGHT (c)
80              
81             Copyright 2003-2018 by Max Maischein C<corion@cpan.org>.
82              
83             =head1 LICENSE
84              
85             This module is released under the same terms as Perl itself.
86              
87             =cut