Business-CyberSource

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

EXAMPLE

    In the example, carp means you should log something Dumper means you
    should log it with lots of detail. Safe::Isa is used because you should
    either use it or check for blessed it is always possible that somewhere
    in the stack someone is using die on a string.

            use 5.010;
            use Carp;
            use Try::Tiny;
            use Safe::Isa;
            use Data::Printer alias => 'Dumper';
    
            use Business::CyberSource::Client;
            use Business::CyberSource::Request::Authorization;
            use Business::CyberSource::Request::Capture;
            # exception namepsace
            my $e_ns = 'Business::CyberSource::Exception';
    
            my $client = Business::CyberSource::Client->new({

lib/Business/CyberSource.pm  view on Meta::CPAN

=head1 EXAMPLE

In the example, C<carp> means you should log something C<Dumper> means you should
log it with lots of detail. L<Safe::Isa> is used because you should either use
it or check for C<blessed> it is always possible that somewhere in the stack
someone is using C<die> on a string.

	use 5.010;
	use Carp;
	use Try::Tiny;
	use Safe::Isa;
	use Data::Printer alias => 'Dumper';

	use Business::CyberSource::Client;
	use Business::CyberSource::Request::Authorization;
	use Business::CyberSource::Request::Capture;
	# exception namepsace
	my $e_ns = 'Business::CyberSource::Exception';

	my $client = Business::CyberSource::Client->new({

lib/Business/CyberSource/Exception/Response.pm  view on Meta::CPAN

=head1 NAME

Business::CyberSource::Exception::Response - response thrown as an object because of ERROR state

=head1 VERSION

version 0.010008

=head1 SYNOPSIS

	use Try::Tiny;
	use Safe::Isa;

	try { ... }
	catch {
		if ( $_->$_does('Business::CyberSource::Response::Role::Base) )
			# log reason_text
		}
	};

=head1 DESCRIPTION

lib/Business/CyberSource/Response.pm  view on Meta::CPAN

=head1 NAME

Business::CyberSource::Response - Response Object

=head1 VERSION

version 0.010008

=head1 SYNOPSIS

	use Try::Tiny;

	my $response
		= try {
			$client->run_transaction( $request )
		}
		catch {
			if ( blessed $_
				&& $_->isa('Business::CyberSource::Response::Exception')
			) {
				if ( $_->is_error ) {