File Coverage

lib/Net/API/Stripe/Connect/Account/ExternalAccounts.pm

Criterion	Covered	Total	%
statement	19	37	51.3
branch	0	6	0.0
condition	0	4	0.0
subroutine	7	9	77.7
pod	1	1	100.0
total	27	57	47.3

##----------------------------------------------------------------------------
## Stripe API - ~/lib/Net/API/Stripe/Connect/Account/ExternalAccounts.pm
## Version v0.100.0
## Copyright(c) 2019 DEGUEST Pte. Ltd.
## Author: Jacques Deguest <[e-mail]>
## Created 2019/11/02
## Modified 2020/05/15
##
##----------------------------------------------------------------------------
BEGIN
{
    use strict;
    use warnings;
    use parent qw( Net::API::Stripe::List );
    use vars qw( $VERSION );
    our( $VERSION ) = 'v0.100.0';
};

use strict;
use warnings;

# Inhertied
# sub object { return( shift->_set_get_scalar( 'object', @_ ) ); }

## The list contains all external accounts that have been attached to the Stripe account. These may be bank accounts or cards.
## sub data { return( shift->_set_get_array( 'data', @_ ) ); }
{
    my $self = shift( @_ );
    if( @_ )
    {
        my $process = sub
        {
            my $ref = shift( @_ );
            my $type = $ref->{object} || return( $self->error( "No object type could be found in hash: ", sub{ $self->_dumper( $ref ) } ) );
            my $class = $self->_object_type_to_class( $type );
            $self->_message( 3, "Object type $type has class $class" );
            my $o = $self->_instantiate_object( 'data', $class, $ref );
            $self->{data} = $o;
            ## return( $class->new( %$ref ) );
            ## return( $self->_set_get_object( 'object', $class, $ref ) );
        };

        if( ref( $_[0] ) eq 'HASH' )
        {
            my $o = $process->( @_ )
        }
        ## An array of objects hash
        elsif( ref( $_[0] ) eq 'ARRAY' )
        {
            my $arr = shift( @_ );
            my $res = [];
            foreach my $data ( @$arr )
            {
                my $o = $process->( $data ) || return( $self->error( "Unable to create object: ", $self->error ) );
                push( @$res, $o );
            }
            $self->{data} = $res;
        }
    }
    return( $self->{data} );
}

# Inhertied
# sub has_more { return( shift->_set_get_scalar( 'has_more', @_ ) ); }

# Inhertied
# sub total_count { return( shift->_set_get_scalar( 'total_count', @_ ) ); }

# Inhertied
# sub url { return( shift->_set_get_uri( 'url', @_ ) ); }

1;


=encoding utf8

=head1 NAME

Net::API::Stripe::Connect::Account::ExternalAccounts - A Stripe External Accounts List Object

=head1 VERSION

    v0.100.0

=head1 DESCRIPTION

This module inherits everything from L<Net::API::Stripe::List> module and overrides only the B<data> method

This is instantiated from method B<external_accounts> in module L<Net::API::Stripe::Connect::Account>

=head1 AUTHOR

Jacques Deguest E<lt>F<[e-mail]>E<gt>

=head1 SEE ALSO

Stripe API documentation:

L<https://stripe.com/docs/api>

=head1 COPYRIGHT & LICENSE

Copyright (c) 2019-2020 DEGUEST Pte. Ltd.

You can use, copy, modify and redistribute this package and associated
files under the same terms as Perl itself.

=cut