Skip to content
Browse files

Build results of 31ade2f (on master)

  • Loading branch information...
1 parent 3fe355c commit 453dbea7bac3a5d700ac0d91cd24af57aec905f0 @xenoterracide committed
Showing with 179 additions and 210 deletions.
  1. +4 −1 Changes
  2. +1 −2 META.json
  3. +1 −2 META.yml
  4. +1 −2 Makefile.PL
  5. +1 −1 README
  6. +3 −4 lib/Business/CyberSource.pm
  7. +9 −9 lib/Business/CyberSource/Client.pm
  8. +3 −4 lib/Business/CyberSource/CreditCard.pm
  9. +3 −3 lib/Business/CyberSource/Factory.pm
  10. +3 −4 lib/Business/CyberSource/Factory/Request.pm
  11. +3 −4 lib/Business/CyberSource/Factory/Response.pm
  12. +3 −4 lib/Business/CyberSource/Factory/Rule.pm
  13. +3 −4 lib/Business/CyberSource/Message.pm
  14. +3 −4 lib/Business/CyberSource/MessagePart.pm
  15. +3 −4 lib/Business/CyberSource/Request.pm
  16. +3 −4 lib/Business/CyberSource/Request/AuthReversal.pm
  17. +3 −4 lib/Business/CyberSource/Request/Authorization.pm
  18. +3 −4 lib/Business/CyberSource/Request/Capture.pm
  19. +3 −4 lib/Business/CyberSource/Request/Credit.pm
  20. +3 −4 lib/Business/CyberSource/Request/DCC.pm
  21. +3 −4 lib/Business/CyberSource/Request/FollowOnCredit.pm
  22. +3 −4 lib/Business/CyberSource/Request/Role/BillingInfo.pm
  23. +3 −4 lib/Business/CyberSource/Request/Role/BusinessRules.pm
  24. +3 −4 lib/Business/CyberSource/Request/Role/CreditCardInfo.pm
  25. +3 −4 lib/Business/CyberSource/Request/Role/DCC.pm
  26. +3 −4 lib/Business/CyberSource/Request/Role/TaxService.pm
  27. +3 −4 lib/Business/CyberSource/Request/Sale.pm
  28. +3 −4 lib/Business/CyberSource/Request/StandAloneCredit.pm
  29. +3 −4 lib/Business/CyberSource/RequestPart/BillTo.pm
  30. +3 −4 lib/Business/CyberSource/RequestPart/BusinessRules.pm
  31. +3 −4 lib/Business/CyberSource/RequestPart/Card.pm
  32. +3 −4 lib/Business/CyberSource/RequestPart/Item.pm
  33. +3 −4 lib/Business/CyberSource/RequestPart/PurchaseTotals.pm
  34. +3 −4 lib/Business/CyberSource/RequestPart/Service.pm
  35. +3 −4 lib/Business/CyberSource/RequestPart/Service/AuthReversal.pm
  36. +3 −4 lib/Business/CyberSource/RequestPart/Service/Capture.pm
  37. +3 −4 lib/Business/CyberSource/RequestPart/Service/Credit.pm
  38. +3 −3 lib/Business/CyberSource/RequestPart/Service/Tax.pm
  39. +3 −4 lib/Business/CyberSource/Response.pm
  40. +3 −4 lib/Business/CyberSource/Response/Role/AVS.pm
  41. +3 −4 lib/Business/CyberSource/Response/Role/Accept.pm
  42. +3 −4 lib/Business/CyberSource/Response/Role/Authorization.pm
  43. +3 −4 lib/Business/CyberSource/Response/Role/CVN.pm
  44. +3 −4 lib/Business/CyberSource/Response/Role/DCC.pm
  45. +3 −4 lib/Business/CyberSource/Response/Role/ProcessorResponse.pm
  46. +3 −4 lib/Business/CyberSource/Response/Role/ReconciliationID.pm
  47. +3 −3 lib/Business/CyberSource/Role/Currency.pm
  48. +3 −4 lib/Business/CyberSource/Role/ForeignCurrency.pm
  49. +3 −4 lib/Business/CyberSource/Role/MerchantReferenceCode.pm
  50. +3 −4 lib/Business/CyberSource/Rule.pm
  51. +3 −4 lib/Business/CyberSource/Rule/ExpiredCard.pm
  52. +3 −4 lib/Business/CyberSource/Rule/RequestIDisZero.pm
  53. +15 −11 lib/MooseX/Types/CyberSource.pm
  54. +0 −1 t/000-report-versions-tiny.t
  55. +9 −0 t/new-client.t
View
5 Changes
@@ -1,7 +1,10 @@
Revision history for Business-CyberSource
+0.006006 2012-08-30
+ - smarten my performance optimizations
+
0.006005 2012-08-29
- - Add missing Dependency File::ShareDir::ProjectDistDir\
+ - Add missing Dependency File::ShareDir::ProjectDistDir
- refactor run_transaction to use state in ways that in theory should
improve performance by not rebuilding the SOAP client every time
View
3 META.json
@@ -40,7 +40,6 @@
"File::ShareDir::ProjectDistDir" : "0",
"Hash::Merge" : "0",
"LWP::Protocol::https" : "0",
- "Locale::Country" : "0",
"Module::Load" : "0",
"Moose" : "0",
"Moose::Role" : "0",
@@ -106,6 +105,6 @@
"web" : "https://github.com/xenoterracide/Business-CyberSource"
}
},
- "version" : "0.006005"
+ "version" : "0.006006"
}
View
3 META.yml
@@ -36,7 +36,6 @@ requires:
File::ShareDir::ProjectDistDir: 0
Hash::Merge: 0
LWP::Protocol::https: 0
- Locale::Country: 0
Module::Load: 0
Moose: 0
Moose::Role: 0
@@ -73,4 +72,4 @@ resources:
bugtracker: https://github.com/xenoterracide/Business-CyberSource/issues
homepage: http://search.cpan.org/dist/Business-CyberSource/
repository: git://github.com/xenoterracide/Business-CyberSource.git
-version: 0.006005
+version: 0.006006
View
3 Makefile.PL
@@ -43,7 +43,6 @@ my %WriteMakefileArgs = (
"File::ShareDir::ProjectDistDir" => 0,
"Hash::Merge" => 0,
"LWP::Protocol::https" => 0,
- "Locale::Country" => 0,
"Module::Load" => 0,
"Moose" => 0,
"Moose::Role" => 0,
@@ -76,7 +75,7 @@ my %WriteMakefileArgs = (
"strict" => 0,
"warnings" => 0
},
- "VERSION" => "0.006005",
+ "VERSION" => "0.006006",
"test" => {
"TESTS" => "t/*.t"
}
View
2 README
@@ -3,7 +3,7 @@ NAME
SOAP API
VERSION
- version 0.006005
+ version 0.006006
DESCRIPTION
This library is a Perl interface to the CyberSource Simple Order SOAP
View
7 lib/Business/CyberSource.pm
@@ -3,14 +3,14 @@ use 5.008;
use strict;
use warnings;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
1;
# ABSTRACT: Perl interface to the CyberSource Simple Order SOAP API
-
__END__
+
=pod
=head1 NAME
@@ -19,7 +19,7 @@ Business::CyberSource - Perl interface to the CyberSource Simple Order SOAP API
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 DESCRIPTION
@@ -228,4 +228,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
18 lib/Business/CyberSource/Client.pm
@@ -4,7 +4,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose;
@@ -28,14 +28,14 @@ use XML::Compile::Transport::SOAPHTTP;
sub _client {
my $self = shift;
- state $wss = XML::Compile::SOAP::WSS->new( version => '1.1' );
+ my $wss = XML::Compile::SOAP::WSS->new( version => '1.1' );
- state $wsdl = XML::Compile::WSDL11->new( $self->cybs_wsdl->stringify );
+ my $wsdl = XML::Compile::WSDL11->new( $self->cybs_wsdl->stringify );
$wsdl->importDefinitions( $self->cybs_xsd->stringify );
- state $call = $wsdl->compileClient('runTransaction');
+ my $call = $wsdl->compileClient('runTransaction');
- state $security = $wss->wsseBasicAuth( $self->_username, $self->_password );
+ my $security = $wss->wsseBasicAuth( $self->_username, $self->_password );
return [ $call, $security ];
}
@@ -60,7 +60,8 @@ sub run_transaction {
;
}
- state $call_security = $self->_client;
+ state $call_security;
+ $call_security //= $self->_client;
my ( $call, $security ) = @{ $call_security };
@@ -287,8 +288,8 @@ __PACKAGE__->meta->make_immutable;
# ABSTRACT: User Agent Responsible for transmitting the Response
-
__END__
+
=pod
=head1 NAME
@@ -297,7 +298,7 @@ Business::CyberSource::Client - User Agent Responsible for transmitting the Resp
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 SYNOPSIS
@@ -408,4 +409,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/CreditCard.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose;
extends 'Business::CyberSource::RequestPart::Card';
@@ -26,8 +26,8 @@ __PACKAGE__->meta->make_immutable;
# ABSTRACT: A Credit Card Value Object
-
__END__
+
=pod
=head1 NAME
@@ -36,7 +36,7 @@ Business::CyberSource::CreditCard - A Credit Card Value Object
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 DESCRIPTION
@@ -64,4 +64,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
6 lib/Business/CyberSource/Factory.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose;
use MooseX::StrictConstructor;
@@ -17,6 +17,7 @@ __PACKAGE__->meta->make_immutable;
# ABSTRACT: Factory Base Class
__END__
+
=pod
=head1 NAME
@@ -25,7 +26,7 @@ Business::CyberSource::Factory - Factory Base Class
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 BUGS
@@ -49,4 +50,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/Factory/Request.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use MooseX::AbstractFactory;
implementation_class_via sub { 'Business::CyberSource::Request::' . shift };
@@ -12,8 +12,8 @@ __PACKAGE__->meta->make_immutable;
1;
# ABSTRACT: CyberSource Request Factory Module
-
__END__
+
=pod
=head1 NAME
@@ -22,7 +22,7 @@ Business::CyberSource::Factory::Request - CyberSource Request Factory Module
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 SYNOPSIS
@@ -124,4 +124,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/Factory/Response.pm
@@ -4,7 +4,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose;
extends 'Business::CyberSource::Factory';
@@ -196,8 +196,8 @@ sub _get_decision {
# ABSTRACT: A Response Factory
-
__END__
+
=pod
=head1 NAME
@@ -206,7 +206,7 @@ Business::CyberSource::Factory::Response - A Response Factory
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 METHODS
@@ -237,4 +237,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/Factory/Rule.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use MooseX::AbstractFactory;
@@ -13,8 +13,8 @@ __PACKAGE__->meta->make_immutable;
1;
# ABSTRACT: CyberSource Rule Factory Module
-
__END__
+
=pod
=head1 NAME
@@ -23,7 +23,7 @@ Business::CyberSource::Factory::Rule - CyberSource Rule Factory Module
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 METHODS
@@ -57,4 +57,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/Message.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose;
extends 'Business::CyberSource::MessagePart';
@@ -23,8 +23,8 @@ __PACKAGE__->meta->make_immutable;
# ABSTRACT: Abstract Message Class;
-
__END__
+
=pod
=head1 NAME
@@ -33,7 +33,7 @@ Business::CyberSource::Message - Abstract Message Class;
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 ATTRIBUTES
@@ -68,4 +68,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/MessagePart.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose;
with 'MooseX::Traits';
@@ -18,8 +18,8 @@ __PACKAGE__->meta->make_immutable;
# ABSTRACT: Things that all portions of a message have in common
-
__END__
+
=pod
=head1 NAME
@@ -28,7 +28,7 @@ Business::CyberSource::MessagePart - Things that all portions of a message have
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 WITH
@@ -60,4 +60,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/Request.pm
@@ -4,7 +4,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
BEGIN {
use Moose;
@@ -200,8 +200,8 @@ __PACKAGE__->meta->make_immutable;
# ABSTRACT: Abstract Request Class
-
__END__
+
=pod
=head1 NAME
@@ -210,7 +210,7 @@ Business::CyberSource::Request - Abstract Request Class
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 DESCRIPTION
@@ -323,4 +323,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/Request/AuthReversal.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose;
extends 'Business::CyberSource::Request';
@@ -21,8 +21,8 @@ __PACKAGE__->meta->make_immutable;
# ABSTRACT: CyberSource Reverse Authorization request object
-
__END__
+
=pod
=head1 NAME
@@ -31,7 +31,7 @@ Business::CyberSource::Request::AuthReversal - CyberSource Reverse Authorization
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 SYNOPSIS
@@ -78,4 +78,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/Request/Authorization.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose;
extends 'Business::CyberSource::Request';
@@ -22,8 +22,8 @@ __PACKAGE__->meta->make_immutable;
# ABSTRACT: CyberSource Authorization Request object
-
__END__
+
=pod
=head1 NAME
@@ -32,7 +32,7 @@ Business::CyberSource::Request::Authorization - CyberSource Authorization Reques
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 SYNOPSIS
@@ -114,4 +114,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/Request/Capture.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose;
extends 'Business::CyberSource::Request';
@@ -25,8 +25,8 @@ __PACKAGE__->meta->make_immutable;
# ABSTRACT: CyberSource Capture Request Object
-
__END__
+
=pod
=head1 NAME
@@ -35,7 +35,7 @@ Business::CyberSource::Request::Capture - CyberSource Capture Request Object
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 SYNOPSIS
@@ -90,4 +90,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/Request/Credit.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose;
extends 'Business::CyberSource::Request';
@@ -47,8 +47,8 @@ __PACKAGE__->meta->make_immutable;
# ABSTRACT: CyberSource Credit Request Object
-
__END__
+
=pod
=head1 NAME
@@ -57,7 +57,7 @@ Business::CyberSource::Request::Credit - CyberSource Credit Request Object
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 SYNOPSIS
@@ -129,4 +129,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/Request/DCC.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose;
extends 'Business::CyberSource::Request';
@@ -20,8 +20,8 @@ __PACKAGE__->meta->make_immutable;
# ABSTRACT: CyberSource DCC Request Object
-
__END__
+
=pod
=head1 NAME
@@ -30,7 +30,7 @@ Business::CyberSource::Request::DCC - CyberSource DCC Request Object
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 SYNOPSIS
@@ -93,4 +93,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/Request/FollowOnCredit.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose;
extends 'Business::CyberSource::Request::Credit';
@@ -20,8 +20,8 @@ __PACKAGE__->meta->make_immutable;
# ABSTRACT: CyberSource Credit Request Object
-
__END__
+
=pod
=head1 NAME
@@ -30,7 +30,7 @@ Business::CyberSource::Request::FollowOnCredit - CyberSource Credit Request Obje
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 SYNOPSIS
@@ -77,4 +77,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/Request/Role/BillingInfo.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose::Role;
use MooseX::RemoteHelper;
@@ -87,8 +87,8 @@ has bill_to => (
# ABSTRACT: Role for requests that require "bill to" information
-
__END__
+
=pod
=head1 NAME
@@ -97,7 +97,7 @@ Business::CyberSource::Request::Role::BillingInfo - Role for requests that requi
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 ATTRIBUTES
@@ -127,4 +127,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/Request/Role/BusinessRules.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose::Role;
use MooseX::RemoteHelper;
@@ -78,8 +78,8 @@ has business_rules => (
# ABSTRACT: Business Rules
-
__END__
+
=pod
=head1 NAME
@@ -88,7 +88,7 @@ Business::CyberSource::Request::Role::BusinessRules - Business Rules
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 ATTRIBUTES
@@ -118,4 +118,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/Request/Role/CreditCardInfo.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose::Role;
use MooseX::RemoteHelper;
@@ -93,8 +93,8 @@ has card => (
# ABSTRACT: credit card info role
-
__END__
+
=pod
=head1 NAME
@@ -103,7 +103,7 @@ Business::CyberSource::Request::Role::CreditCardInfo - credit card info role
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 ATTRIBUTES
@@ -133,4 +133,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/Request/Role/DCC.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose::Role;
use MooseX::RemoteHelper;
@@ -29,8 +29,8 @@ has dcc_indicator => (
# ABSTRACT: Role for DCC follow up requests
-
__END__
+
=pod
=head1 NAME
@@ -39,7 +39,7 @@ Business::CyberSource::Request::Role::DCC - Role for DCC follow up requests
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 DESCRIPTION
@@ -99,4 +99,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/Request/Role/TaxService.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose::Role;
use MooseX::SetOnce;
@@ -23,8 +23,8 @@ has tax_service => (
# ABSTRACT: Tax Service
-
__END__
+
=pod
=head1 NAME
@@ -33,7 +33,7 @@ Business::CyberSource::Request::Role::TaxService - Tax Service
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 ATTRIBUTES
@@ -64,4 +64,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/Request/Sale.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose;
extends 'Business::CyberSource::Request::Authorization';
@@ -26,8 +26,8 @@ __PACKAGE__->meta->make_immutable;
# ABSTRACT: Sale Request Object
-
__END__
+
=pod
=head1 NAME
@@ -36,7 +36,7 @@ Business::CyberSource::Request::Sale - Sale Request Object
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 SYNOPSIS
@@ -108,4 +108,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/Request/StandAloneCredit.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose;
extends 'Business::CyberSource::Request::Credit';
@@ -24,8 +24,8 @@ __PACKAGE__->meta->make_immutable;
# ABSTRACT: CyberSource Credit Request Object
-
__END__
+
=pod
=head1 NAME
@@ -34,7 +34,7 @@ Business::CyberSource::Request::StandAloneCredit - CyberSource Credit Request Ob
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 SYNOPSIS
@@ -105,4 +105,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/RequestPart/BillTo.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose;
extends 'Business::CyberSource::MessagePart';
@@ -146,8 +146,8 @@ __PACKAGE__->meta->make_immutable;
# ABSTRACT: BillTo information
-
__END__
+
=pod
=head1 NAME
@@ -156,7 +156,7 @@ Business::CyberSource::RequestPart::BillTo - BillTo information
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 ATTRIBUTES
@@ -236,4 +236,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/RequestPart/BusinessRules.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose;
extends 'Business::CyberSource::MessagePart';
@@ -89,8 +89,8 @@ __PACKAGE__->meta->make_immutable;
# ABSTRACT: Business Rules
-
__END__
+
=pod
=head1 NAME
@@ -99,7 +99,7 @@ Business::CyberSource::RequestPart::BusinessRules - Business Rules
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 ATTRIBUTES
@@ -189,4 +189,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/RequestPart/Card.pm
@@ -4,7 +4,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose;
extends 'Business::CyberSource::MessagePart';
@@ -192,8 +192,8 @@ __PACKAGE__->meta->make_immutable;
1;
# ABSTRACT: Credit Card Helper Class
-
__END__
+
=pod
=head1 NAME
@@ -202,7 +202,7 @@ Business::CyberSource::RequestPart::Card - Credit Card Helper Class
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 ATTRIBUTES
@@ -334,4 +334,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/RequestPart/Item.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose;
extends 'Business::CyberSource::MessagePart';
@@ -81,8 +81,8 @@ __PACKAGE__->meta->make_immutable;
# ABSTRACT: Item Helper Class
-
__END__
+
=pod
=head1 NAME
@@ -91,7 +91,7 @@ Business::CyberSource::RequestPart::Item - Item Helper Class
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 ATTRIBUTES
@@ -173,4 +173,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/RequestPart/PurchaseTotals.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose;
extends 'Business::CyberSource::MessagePart';
@@ -30,8 +30,8 @@ __PACKAGE__->meta->make_immutable;
1;
# ABSTRACT: Purchase Totals
-
__END__
+
=pod
=head1 NAME
@@ -40,7 +40,7 @@ Business::CyberSource::RequestPart::PurchaseTotals - Purchase Totals
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 ATTRIBUTES
@@ -86,4 +86,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/RequestPart/Service.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose;
extends 'Business::CyberSource::MessagePart';
@@ -29,8 +29,8 @@ __PACKAGE__->meta->make_immutable;
# ABSTRACT: Service Request Part
-
__END__
+
=pod
=head1 NAME
@@ -39,7 +39,7 @@ Business::CyberSource::RequestPart::Service - Service Request Part
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 DESCRIPTION
@@ -82,4 +82,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/RequestPart/Service/AuthReversal.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose;
extends 'Business::CyberSource::RequestPart::Service';
@@ -24,8 +24,8 @@ __PACKAGE__->meta->make_immutable;
# ABSTRACT: AuthReversal Service
-
__END__
+
=pod
=head1 NAME
@@ -34,7 +34,7 @@ Business::CyberSource::RequestPart::Service::AuthReversal - AuthReversal Service
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 ATTRIBUTES
@@ -64,4 +64,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/RequestPart/Service/Capture.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose;
extends 'Business::CyberSource::RequestPart::Service';
@@ -23,8 +23,8 @@ __PACKAGE__->meta->make_immutable;
1;
# ABSTRACT: Capture Service
-
__END__
+
=pod
=head1 NAME
@@ -33,7 +33,7 @@ Business::CyberSource::RequestPart::Service::Capture - Capture Service
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 ATTRIBUTES
@@ -64,4 +64,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/RequestPart/Service/Credit.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose;
extends 'Business::CyberSource::RequestPart::Service';
@@ -24,8 +24,8 @@ __PACKAGE__->meta->make_immutable;
# ABSTRACT: Credit Service
-
__END__
+
=pod
=head1 NAME
@@ -34,7 +34,7 @@ Business::CyberSource::RequestPart::Service::Credit - Credit Service
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 ATTRIBUTES
@@ -67,4 +67,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
6 lib/Business/CyberSource/RequestPart/Service/Tax.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose;
extends 'Business::CyberSource::RequestPart::Service';
@@ -23,6 +23,7 @@ __PACKAGE__->meta->make_immutable;
# ABSTRACT: Tax Service
__END__
+
=pod
=head1 NAME
@@ -31,7 +32,7 @@ Business::CyberSource::RequestPart::Service::Tax - Tax Service
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 BUGS
@@ -55,4 +56,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/Response.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean -also => [ qw( create ) ];
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose;
extends 'Business::CyberSource::Message';
@@ -151,8 +151,8 @@ __PACKAGE__->meta->make_immutable;
# ABSTRACT: Response Object
-
__END__
+
=pod
=head1 NAME
@@ -161,7 +161,7 @@ Business::CyberSource::Response - Response Object
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 DESCRIPTION
@@ -334,4 +334,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/Response/Role/AVS.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose::Role;
@@ -29,8 +29,8 @@ has avs_code_raw => (
# ABSTRACT: AVS Role
-
__END__
+
=pod
=head1 NAME
@@ -39,7 +39,7 @@ Business::CyberSource::Response::Role::AVS - AVS Role
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 ATTRIBUTES
@@ -74,4 +74,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/Response/Role/Accept.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose::Role;
with qw(
@@ -53,8 +53,8 @@ has request_specific_reason_code => (
# ABSTRACT: role for handling accepted transactions
-
__END__
+
=pod
=head1 NAME
@@ -63,7 +63,7 @@ Business::CyberSource::Response::Role::Accept - role for handling accepted trans
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 DESCRIPTION
@@ -111,4 +111,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/Response/Role/Authorization.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose::Role;
with qw(
@@ -34,8 +34,8 @@ has auth_record => (
# ABSTRACT: CyberSource Authorization Response only attributes
-
__END__
+
=pod
=head1 NAME
@@ -44,7 +44,7 @@ Business::CyberSource::Response::Role::Authorization - CyberSource Authorization
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 DESCRIPTION
@@ -90,4 +90,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/Response/Role/CVN.pm
@@ -4,7 +4,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose::Role;
@@ -30,8 +30,8 @@ has cv_code_raw => (
# ABSTRACT: CVN Role
-
__END__
+
=pod
=head1 NAME
@@ -40,7 +40,7 @@ Business::CyberSource::Response::Role::CVN - CVN Role
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 ATTRIBUTES
@@ -70,4 +70,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/Response/Role/DCC.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose::Role;
with qw(
@@ -33,8 +33,8 @@ has margin_rate_percentage => (
# ABSTRACT: Role that provides attributes specific to responses for DCC
-
__END__
+
=pod
=head1 NAME
@@ -43,7 +43,7 @@ Business::CyberSource::Response::Role::DCC - Role that provides attributes speci
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 ATTRIBUTES
@@ -75,4 +75,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/Response/Role/ProcessorResponse.pm
@@ -4,7 +4,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose::Role;
@@ -23,8 +23,8 @@ has processor_response => (
# ABSTRACT: Processor Response attribute
-
__END__
+
=pod
=head1 NAME
@@ -33,7 +33,7 @@ Business::CyberSource::Response::Role::ProcessorResponse - Processor Response at
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 ATTRIBUTES
@@ -61,4 +61,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/Response/Role/ReconciliationID.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose::Role;
@@ -17,8 +17,8 @@ has reconciliation_id => (
# ABSTRACT: Reconciliation Identifier
-
__END__
+
=pod
=head1 NAME
@@ -27,7 +27,7 @@ Business::CyberSource::Response::Role::ReconciliationID - Reconciliation Identif
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 ATTRIBUTES
@@ -55,4 +55,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
6 lib/Business/CyberSource/Role/Currency.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose::Role;
use MooseX::RemoteHelper;
@@ -21,6 +21,7 @@ has currency => (
# ABSTRACT: Role to apply to requests and responses that require currency
__END__
+
=pod
=head1 NAME
@@ -29,7 +30,7 @@ Business::CyberSource::Role::Currency - Role to apply to requests and responses
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 BUGS
@@ -53,4 +54,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/Role/ForeignCurrency.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose::Role;
use MooseX::RemoteHelper;
@@ -50,8 +50,8 @@ has exchange_rate_timestamp => (
# ABSTRACT: Role to apply to requests and responses that require currency
-
__END__
+
=pod
=head1 NAME
@@ -60,7 +60,7 @@ Business::CyberSource::Role::ForeignCurrency - Role to apply to requests and res
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 ATTRIBUTES
@@ -90,4 +90,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/Role/MerchantReferenceCode.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose::Role;
use MooseX::RemoteHelper;
@@ -20,8 +20,8 @@ has reference_code => (
# ABSTRACT: Generic implementation of MerchantReferenceCode
-
__END__
+
=pod
=head1 NAME
@@ -30,7 +30,7 @@ Business::CyberSource::Role::MerchantReferenceCode - Generic implementation of M
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 ATTRIBUTES
@@ -62,4 +62,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/Rule.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose;
use MooseX::StrictConstructor;
@@ -39,8 +39,8 @@ __PACKAGE__->meta->make_immutable;
# ABSTRACT: Abstract Rule Base
-
__END__
+
=pod
=head1 NAME
@@ -49,7 +49,7 @@ Business::CyberSource::Rule - Abstract Rule Base
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 METHODS
@@ -98,4 +98,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/Rule/ExpiredCard.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose;
extends 'Business::CyberSource::Rule';
@@ -33,8 +33,8 @@ __PACKAGE__->meta->make_immutable;
1;
# ABSTRACT: Expired Card
-
__END__
+
=pod
=head1 NAME
@@ -43,7 +43,7 @@ Business::CyberSource::Rule::ExpiredCard - Expired Card
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 METHODS
@@ -73,4 +73,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
7 lib/Business/CyberSource/Rule/RequestIDisZero.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use Moose;
extends 'Business::CyberSource::Rule';
@@ -32,8 +32,8 @@ __PACKAGE__->meta->make_immutable;
1;
# ABSTRACT: Expired Card
-
__END__
+
=pod
=head1 NAME
@@ -42,7 +42,7 @@ Business::CyberSource::Rule::RequestIDisZero - Expired Card
=head1 VERSION
-version 0.006005
+version 0.006006
=head1 METHODS
@@ -72,4 +72,3 @@ This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
-
View
26 lib/MooseX/Types/CyberSource.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use namespace::autoclean;
-our $VERSION = '0.006005'; # VERSION
+our $VERSION = '0.006006'; # VERSION
use MooseX::Types -declare => [ qw(
AVSResult
@@ -46,8 +46,7 @@ use MooseX::Types::Moose qw( Int Num Str HashRef ArrayRef )
use MooseX::Types::Locale::Country qw( Alpha2Country Alpha3Country CountryName );
use MooseX::Types::DateTime;
-use Locale::Country;
-use Class::Load qw( load_class );
+use Class::Load qw( load_class );
enum Decision, [ qw( ACCEPT REJECT ERROR REVIEW ) ];
@@ -181,16 +180,23 @@ subtype CountryCode,
coerce CountryCode,
from Alpha3Country,
via {
- return uc country_code2code( $_ , LOCALE_CODE_ALPHA_3, LOCALE_CODE_ALPHA_2 );
+ load_class('Locale::Code');
+
+ return uc Locale::Code::country_code2code( $_ ,
+ Locale::Code::LOCALE_CODE_ALPHA_3(),
+ Locale::Code::LOCALE_CODE_ALPHA_2(),
+ );
}
;
coerce CountryCode,
from CountryName,
via {
- return uc country2code( $_, LOCALE_CODE_ALPHA_2 );
- }
- ;
+ load_class('Locale::Code');
+ return uc Locale::Code::country_code2code( $_ ,
+ Locale::Code::LOCALE_CODE_ALPHA_2(),
+ );
+ };
enum DCCIndicator, [ qw( 1 2 3 ) ];
@@ -261,9 +267,8 @@ subtype _VarcharSixty,
# ABSTRACT: Moose Types specific to CyberSource
-
-
__END__
+
=pod
=head1 NAME