Business-CyberSource

 view release on metacpan or  search on metacpan

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

	is       => 'ro',
	isa      => 'Bool'
);

has valid_hours => (
	required => 1,
	is       => 'ro',
	isa      => 'Int',
);

has margin_rate_percentage => (
	required => 1,
	is       => 'ro',
	isa      => 'Num',
);

1;

# ABSTRACT: Role that provides attributes specific to responses for DCC

__END__

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

=head1 VERSION

version 0.010008

=head1 ATTRIBUTES

=head2 dcc_supported

=head2 valid_hours

=head2 margin_rate_percentage

=head1 BUGS

Please report any bugs or feature requests on the bugtracker website
https://github.com/hostgator/business-cybersource/issues

When submitting a bug or request, please include a test-file or a
patch to an existing test-file that illustrates the bug or desired
feature.

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

has supported => (
	isa         => Bool,
	remote_name => 'dccSupported',
	is          => 'ro',
	coerce      => 1,
	required    => 1,
	predicate   => 'has_supported',
);

has margin_rate_percentage => (
	isa         => 'Num',
	remote_name => 'marginRatePercentage',
	is          => 'ro',
	required    => 1,
	predicate   => 'has_margin_rate_percentage',
);

has valid_hours => (
	isa         => 'Int',
	remote_name => 'validHours',
	is          => 'ro',
	required    => 1,
	predicate   => 'has_valid_hours',
);

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

=item L<Business::CyberSource::Response::Role::ReasonCode>

=back

=head1 ATTRIBUTES

=head2 supported

B<Type:> C<Bool>

=head2 margin_rate_percentage

B<Type:> C<Num>

=head2 valid_hours

B<Type:> C<Int>

=head1 BUGS

Please report any bugs or feature requests on the bugtracker website

xt/author/dcc/dcc.t  view on Meta::CPAN

ok $dcc->reference_code, 'reference code exists';
is $dcc->dcc->reason_code, 100, 'DCC Reason code is 100';
is $dcc->purchase_totals->foreign_currency, 'JPY', 'check foreign currency';
is $dcc->purchase_totals->foreign_amount, 116, 'check foreign amount';
is $dcc->currency, 'USD', 'check currency';
is $dcc->dcc->supported, 1, 'check dcc supported';
is $dcc->purchase_totals->exchange_rate, 116.4344, 'check exchange rate';
is $dcc->purchase_totals->exchange_rate_timestamp, '20090101 00:00', 'exchange timestamp';
ok $dcc->dcc->valid_hours, 'check valid hours exists';
is $dcc->dcc->margin_rate_percentage, '03.0000', 'check margin rate percentage';

done_testing;