File Coverage

blib/lib/Business/CyberSource/Request/DCC.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Business::CyberSource::Request::DCC;
2 1     1   622 use strict;
  1         2  
  1         37  
3 1     1   4 use warnings;
  1         2  
  1         26  
4 1     1   432 use namespace::autoclean;
  1         14040  
  1         6  
5              
6             our $VERSION = '0.010006'; # VERSION
7              
8 1     1   721 use Moose;
  1         436107  
  1         12  
9             extends 'Business::CyberSource::Request';
10             with qw(
11             Business::CyberSource::Request::Role::CreditCardInfo
12             Business::CyberSource::Role::ForeignCurrency
13             Business::CyberSource::Request::Role::TaxService
14             );
15              
16             has '+service' => ( remote_name => 'ccDCCService' );
17              
18             __PACKAGE__->meta->make_immutable;
19             1;
20              
21             # ABSTRACT: CyberSource DCC Request Object
22              
23             __END__
24              
25             =pod
26              
27             =encoding UTF-8
28              
29             =head1 NAME
30              
31             Business::CyberSource::Request::DCC - CyberSource DCC Request Object
32              
33             =head1 VERSION
34              
35             version 0.010006
36              
37             =head1 SYNOPSIS
38              
39             use Business::CyberSource::Request::DCC;
40              
41             my $dcc
42             = Business::CyberSource::Request::DCC->new({
43             reference_code => '1984',
44             purchase_totals => {
45             currency => 'USD',
46             total => '1.00',
47             foreign_currency => 'EUR',
48             },
49             card => {
50             credit_card => '5100870000000004',
51             expiration => {
52             month => '04',
53             year => '2012',
54             },
55             },
56             });
57              
58             =head1 DESCRIPTION
59              
60             This object allows you to create a request for Direct Currency Conversion.
61              
62             =head1 EXTENDS
63              
64             L<Business::CyberSource::Request>
65              
66             =head1 WITH
67              
68             =over
69              
70             =item L<Business::CyberSource::Request::Role::CreditCardInfo>
71              
72             =item L<Business::CyberSource::Role::ForeignCurrency>
73              
74             =back
75              
76             =head1 BUGS
77              
78             Please report any bugs or feature requests on the bugtracker website
79             https://github.com/xenoterracide/business-cybersource/issues
80              
81             When submitting a bug or request, please include a test-file or a
82             patch to an existing test-file that illustrates the bug or desired
83             feature.
84              
85             =head1 AUTHOR
86              
87             Caleb Cushing <xenoterracide@gmail.com>
88              
89             =head1 COPYRIGHT AND LICENSE
90              
91             This software is Copyright (c) 2015 by Caleb Cushing <xenoterracide@gmail.com>.
92              
93             This is free software, licensed under:
94              
95             The Artistic License 2.0 (GPL Compatible)
96              
97             =cut