File Coverage

blib/lib/WWW/BigDoor/CurrencyBalance.pm

Criterion	Covered	Total	%
statement	34	37	91.8
branch	1	4	25.0
condition			n/a
subroutine	9	10	90.0
pod	3	3	100.0
total	47	54	87.0

package WWW::BigDoor::CurrencyBalance;

use strict;
use warnings;

use Carp;
use Data::Dumper;
#use Smart::Comments -ENV;

use base qw(WWW::BigDoor::Resource Class::Accessor);

__PACKAGE__->follow_best_practice;
__PACKAGE__->mk_accessors(
    qw(id read_only end_user_obj adjustment_amount curr_balance prev_balance transaction_group_id)
);

sub new {
    my ( $class, $end_user_obj, $args ) = @_;

    my $self = $class->SUPER::new( $args );

    $self->set_end_user_obj( $end_user_obj );
    return $self;
}

sub end_point {
    my ( $self, $end_user_obj ) = @_;
    my $ep = $self->_end_point;

    unless ( defined $end_user_obj ) {
        croak "Need EndUser object as parameter" unless ref $self;
        $end_user_obj = $self->get_end_user_obj;
    }
    ### end_user_obj: Dumper($end_user_obj)

    my $end_user_login = $end_user_obj->get_end_user_login();
    ### end_user_login: $end_user_login
    ### _end_point: $self->_end_point()
    ### _parent_end_point: $self->_parent_end_point()

    $ep = sprintf '%s/%s/%s', $self->_parent_end_point(), $end_user_login, $self->_end_point();
    ###  ep with parent: $ep
    return $ep;
}

sub all {
    my ( $self, $client, $end_user_obj ) = @_;
    my $ep = $self->end_point( $end_user_obj );

    ## end_point: $ep
    ### check: defined $ep
    my $data = $client->GET( $ep );
    my @all;

    ### data: $data

    foreach my $object ( @{@$data[0]} ) {
        ### object: $object
        push @all, $self->new( $end_user_obj, $object );
        ### next...
    }
    return [@all];
}

sub _parent_end_point { ## no critic (ProhibitUnusedPrivateSubroutines)
    return 'end_user';
}

sub _parent_id_attr { ## no critic (ProhibitUnusedPrivateSubroutines)
    return 'end_user_login';
}

1;
__END__