File Coverage

blib/lib/WWW/BigDoor/NamedTransactionGroup.pm

Criterion	Covered	Total	%
statement	17	18	94.4
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	24	26	92.3

package WWW::BigDoor::NamedTransactionGroup;

use strict;
use warnings;

use Carp;
#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_cap end_user_cap_interval non_secure challenge_response_enabled urls named_transactions)
);

sub execute_transaction {
    my ( $self, $end_user_login, $payload, $client ) = @_;

    unless ( defined $self->get_id ) {
        croak 'TransactionGroup should have ID - save before execution';
    }
    my $ep = $self->_end_point;

    my $result = $client->POST( sprintf( '%s/%s/execute/%s', $ep, $self->get_id, $end_user_login ),
        {format => 'json'}, $payload );
    return $result;
}

1;
__END__