Yet Another CPAN Grep

Business-OnlinePayment-CardConnect ( O/OA/OAXLIN/Business-OnlinePayment-CardConnect-0.004.tar.gz, OAXLIN, 2017; MetaCPAN )

Business-OnlinePayment-CardConnect/lib/Business/OnlinePayment/CardConnect.pm ( view source; MetaCPAN )

nlinePayment::HTTPS;
use vars qw(@ISA $me $DEBUG);
use URI::Escape;
use HTTP::Tiny;
use JSON qw(to_json from_json);
use Business::CreditCard qw(cardtype);
use Data::Dumper;
use Carp qw(croak);
use Log


    my $page = $self->_do_put_request( 'void', $post_data );
    my $response = $page->{'content_json'};

    $self->is_success($response->{'respstat'} eq 'A' ? $response : undef);
    $self->result_

  my $page = $self->_do_put_request( 'capture', $post_data );
    my $response = $page->{'content_json'};

    $self->is_success($response->{'respstat'} eq 'A' ? $response : undef);
    $self->result_