view release on metacpan or  search on metacpan

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

package Business::CyberSource::Request::Authorization;
use strict;
use warnings;
use namespace::autoclean;

our $VERSION = '0.010008'; # VERSION

use Moose;
extends 'Business::CyberSource::Request';
with qw(
	Business::CyberSource::Request::Role::BillingInfo
	Business::CyberSource::Request::Role::CreditCardInfo
	Business::CyberSource::Request::Role::DCC
	Business::CyberSource::Request::Role::TaxService
);

use MooseX::Types::CyberSource qw( BusinessRules AuthService );

use Module::Runtime qw( use_module );

has '+service' => (
    remote_name => 'ccAuthService',
    isa         => AuthService,
    lazy_build  => 0,
);

sub _build_service {
	use_module('Business::CyberSource::RequestPart::Service::Auth');
	return Business::CyberSource::RequestPart::Service::Auth->new;
}

has business_rules => (
	isa         => BusinessRules,
	remote_name => 'businessRules',
	traits      => ['SetOnce'],
	is          => 'rw',
	coerce      => 1,
);

__PACKAGE__->meta->make_immutable;
1;

# ABSTRACT: CyberSource Authorization Request object

__END__

=pod

=encoding UTF-8

=head1 NAME

Business::CyberSource::Request::Authorization - CyberSource Authorization Request object

=head1 VERSION

version 0.010008

=head1 SYNOPSIS

	use Business::CyberSource::Request::Authorization;

	Business::CyberSource::Request::Authorization->new({
		reference_code => '42',