view release on metacpan or  search on metacpan

lib/Dancer/Plugin/Interchange6/Business/OnlinePayment.pm  view on Meta::CPAN

	eval { $bop_object->submit(); };

	if ($@) {
		die "Payment with provider ", $self->{provider}, " failed: ", $@;
	}

	if ( $bop_object->is_success() ) {
        $self->_set_is_success(1);

		if ( $bop_object->can('popup_url') ) {
			debug( "Success!  Redirect browser to " . $bop_object->popup_url() );
		}
        else {
            debug("Successful payment, authorization: ",
                  $bop_object->authorization);
            debug("Order number: ", $bop_object->order_number);
            $self->_set_authorization($bop_object->authorization);
            $self->_set_order_number($bop_object->order_number);
        }
	}
	else {

t/dpci6_bop.t  view on Meta::CPAN

ok $bop->is_success, "is_success is true";

$log = $trap->read;
cmp_deeply(
    $log,
    superbagof(
        {
            level => "debug",
            message =>
              "Success!  Redirect browser to http://localhost/payment_popup",
        },
    ),
    "got expected debug messages"
) or diag explain $log;

done_testing();

t/lib/Business/OnlinePayment/MockPopup.pm  view on Meta::CPAN

package Business::OnlinePayment::MockPopup;

use warnings;
use strict;

use base 'Business::OnlinePayment::MockSuccess';

sub popup_url {
    return "http://localhost/payment_popup";
}

1;