File Coverage

blib/lib/Business/OnlinePayment/Mock.pm

Criterion	Covered	Total	%
statement	21	46	45.6
branch	1	16	6.2
condition			n/a
subroutine	8	10	80.0
pod	4	4	100.0
total	34	76	44.7

package Business::OnlinePayment::Mock;
use strict;
use warnings;



use Business::OnlinePayment;
use Business::OnlinePayment::HTTPS;
use parent qw(Business::OnlinePayment::HTTPS);
our $me = 'Business::OnlinePayment::Mock';

our $VERSION = '0.008'; # VERSION
# PODNAME: Business::OnlinePayment::Mock
# ABSTRACT: A backend for mocking fake results for test cards

our $mock_responses;

our $default_mock = {
    error_message => 'Declined',
    is_success    => 0,
    error_code    => 100,
    order_number  => sub { time },
};

our $default_approved_mock = {
    error_message => 'Approved',
    is_success    => 1,
    error_code    => 0,
    order_number  => sub { time },
};

sub _info {
    return {
        info_compat       => '0.01',
        gateway_name      => 'Mock',
        gateway_url       => 'http://www.example.com',
        module_version    => $VERSION,
        supported_types   => ['CC'],
        supported_actions => {
            CC => [

                # 'Tokenize', # TODO
                'Normal Authorization',
                'Post Authorization',
                'Authorization Only',
                'Credit',
                'Void',
                'Auth Reversal',
                'PreAuth',
                'Mark Token Used', # very few bop modules use this
            ],
        },
    };
}


sub set_default_mock {
    my ($self, $default) = @_;

    $default_mock = $default;
}


sub set_mock_response {
    my ($self, $response, $set_as_default) = @_;

    $mock_responses->{ delete $response->{'action'} }->{ delete $response->{'card_number'} } = $response;

    $self->set_as_default($response) if $set_as_default;
}


sub test_transaction {
    my $self = shift;

    $self->{'test_transaction'} = 1;
    $self->server('example.com');
    $self->port(443);
    $self->path('/example.html');

    return $self->{'test_transaction'};
}


sub submit {
    my $self    = shift;
    my %content = $self->content();
    die 'Missing action' unless $content{'action'};

    my $action;
    foreach my $a (@{ $self->_info()->{'supported_actions'}->{'CC'} }) {
        if (lc $a eq lc $content{'action'}) {
            $action = $a;
            last;
        }
    }
    die 'Unsupported action' unless $action;
    local $default_mock = $default_approved_mock if $action eq 'Mark Token Used'; # these always approve

    my $result = { %{ $mock_responses->{$action}->{ $content{'card_number'} } || $default_mock } };    # cheap clone

    foreach my $k (keys %{$result}) {
        my $val = $result->{$k};
        $result->{$k} = ref $val eq 'CODE' ? $val->(\%content) : $val;
        $self->$k($result->{$k}) if $self->can($k);
    }

    return $result;
}

1;

__END__