Business-CyberSource-Report

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

		'Scalar::Util'          => 0,
		'Test::Exception'       => 0,
		'Test::FailWarnings'    => 0,
		'Test::LWP::UserAgent'  => 0,
		'Test::More'            => 0.94,
	},
	requires             =>
	{
		'Carp'                  => 0,
		'Class::Load'           => 0,
		'HTTP::Request'         => 0,
		'HTTP::Request::Common' => 0,
		'LWP::UserAgent'        => 0,
		'Storable'              => 0,
		'perl'                  => 5.006,
	},
	add_to_cleanup       =>
	[
		'Business-CyberSource-Report-*',
	],
	create_makefile_pl   => 'traditional',
	recursive_test_files => 1,

META.json  view on Meta::CPAN

      },
      "configure" : {
         "requires" : {
            "Module::Build" : "0"
         }
      },
      "runtime" : {
         "requires" : {
            "Carp" : "0",
            "Class::Load" : "0",
            "HTTP::Request" : "0",
            "HTTP::Request::Common" : "0",
            "LWP::UserAgent" : "0",
            "Storable" : "0",
            "perl" : "5.006"
         }
      }
   },
   "provides" : {
      "Business::CyberSource::Report" : {
         "file" : "lib/Business/CyberSource/Report.pm",
         "version" : "v1.2.0"

META.yml  view on Meta::CPAN

    version: v1.2.0
  Business::CyberSource::Report::PaymentEvents:
    file: lib/Business/CyberSource/Report/PaymentEvents.pm
    version: v1.2.0
  Business::CyberSource::Report::SingleTransaction:
    file: lib/Business/CyberSource/Report/SingleTransaction.pm
    version: v1.2.0
requires:
  Carp: '0'
  Class::Load: '0'
  HTTP::Request: '0'
  HTTP::Request::Common: '0'
  LWP::UserAgent: '0'
  Storable: '0'
  perl: '5.006'
resources:
  bugtracker: https://github.com/guillaumeaubert/Business-CyberSource-Report/issues
  homepage: https://metacpan.org/release/Business-CyberSource-Report
  license: http://dev.perl.org/licenses/
  repository: https://github.com/guillaumeaubert/Business-CyberSource-Report
version: v1.2.0

Makefile.PL  view on Meta::CPAN

WriteMakefile
(
  'test' => {
              'TESTS' => 't/*.t t/SingleTransaction/*.t t/PaymentEvents/*.t'
            },
  'EXE_FILES' => [],
  'VERSION_FROM' => 'lib/Business/CyberSource/Report.pm',
  'PREREQ_PM' => {
                   'Storable' => 0,
                   'Test::LWP::UserAgent' => 0,
                   'HTTP::Request' => 0,
                   'HTTP::Request::Common' => 0,
                   'Scalar::Util' => 0,
                   'Carp' => 0,
                   'LWP::UserAgent' => 0,
                   'Test::Exception' => 0,
                   'Test::More' => '0.94',
                   'Class::Load' => 0,
                   'Test::FailWarnings' => 0
                 },
  'PL_FILES' => {},
  'INSTALLDIRS' => 'site',

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

package Business::CyberSource::Report::PaymentEvents;

use strict;
use warnings;

use base 'Business::CyberSource::Report';

use Carp;
use HTTP::Request::Common qw();
use LWP::UserAgent qw();


=head1 NAME

Business::CyberSource::Report::PaymentEvents - Interface to CyberSource's Payment Events report.


=head1 VERSION

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

		unless defined( $date );
	croak 'The format for the date of the transactions to retrieve is YYYY/MM/DD'
		unless $date =~ m/^\d{4}\/\d{2}\/\d{2}$/;

	# Prepare the URL to hit.
	my $url = ( $self->use_production_system() ? $PRODUCTION_URL : $TEST_URL )
		. '/DownloadReport/' . $date . '/' . $self->get_merchant_id()
		. '/PaymentEventsReport.' . $format;

	# Send the query.
	my $request = HTTP::Request::Common::GET( $url );
	$request->authorization_basic(
		$self->get_username(),
		$self->get_password(),
	);

	my $response = $user_agent->request( $request );
	croak "Could not get a response from CyberSource"
		unless defined $response;
	croak "CyberSource returned the following error: " . $response->status_line()
		unless $response->is_success();

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

package Business::CyberSource::Report::SingleTransaction;

use strict;
use warnings;

use base 'Business::CyberSource::Report';

use Carp;
use HTTP::Request::Common qw();
use LWP::UserAgent qw();


=head1 NAME

Business::CyberSource::Report::SingleTransaction - Interface to CyberSource's Single Transaction report.


=head1 VERSION

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

	{
		croak 'Please provide either a request_id or the combination of a '
			. 'merchant_reference_number and target_date parameters';
	}

	# Add option to get extended details.
	$request_parameters->{'includeExtendedDetail'} = $include_extended_detail
		if defined( $include_extended_detail );

	# Send the query.
	my $request = HTTP::Request::Common::POST(
		$self->use_production_system() ? $PRODUCTION_URL : $TEST_URL,
		Content => $request_parameters,
	);
	$request->authorization_basic(
		$self->get_username(),
		$self->get_password(),
	);

	my $response = $user_agent->request( $request );
	croak "Could not get a response from CyberSource"