File Coverage

blib/lib/Business/CyberSource/Request/Role/DCC.pm
Criterion Covered Total %
statement 21 21 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 28 28 100.0


line stmt bran cond sub pod time code
1             package Business::CyberSource::Request::Role::DCC;
2 5     5   3318 use strict;
  5         8  
  5         244  
3 5     5   26 use warnings;
  5         7  
  5         156  
4 5     5   22 use namespace::autoclean;
  5         9  
  5         38  
5              
6             our $VERSION = '0.010006'; # VERSION
7              
8 5     5   419 use Moose::Role;
  5         10  
  5         33  
9 5     5   21192 use MooseX::RemoteHelper;
  5         10  
  5         36  
10 5     5   14951 use MooseX::SetOnce 0.200001;
  5         178  
  5         167  
11              
12             with 'Business::CyberSource::Role::ForeignCurrency';
13              
14 5     5   22 use MooseX::Types::CyberSource qw( DCCIndicator );
  5         10  
  5         42  
15              
16             has dcc_indicator => (
17             isa => DCCIndicator,
18             remote_name => 'dcc',
19             predicate => 'has_dcc_indicator',
20             traits => [ 'SetOnce' ],
21             is => 'rw',
22             serializer => sub {
23             my ( $attr, $instance ) = @_;
24             return { dccIndicator => $attr->get_value( $instance ) };
25             },
26             );
27              
28             1;
29              
30             # ABSTRACT: Role for DCC follow up requests
31              
32             __END__
33              
34             =pod
35              
36             =encoding UTF-8
37              
38             =head1 NAME
39              
40             Business::CyberSource::Request::Role::DCC - Role for DCC follow up requests
41              
42             =head1 VERSION
43              
44             version 0.010006
45              
46             =head1 DESCRIPTION
47              
48             =head1 WITH
49              
50             =over
51              
52             =item L<Business::CyberSource::Role::ForeignCurrency>
53              
54             =back
55              
56             =head1 ATTRIBUTES
57              
58             =head2 dcc_indicator
59              
60             Flag that indicates whether DCC is being used for the transaction.
61              
62             This field is required if you called the DCC service for the purchase.
63              
64             Possible values:
65              
66             =over
67              
68             =item 1: Converted
69              
70             DCC is being used.
71              
72             =item 2: Nonconvertible
73              
74             DCC cannot be used.
75              
76             =item 3: Declined
77              
78             DCC could be used, but the customer declined it.
79              
80             =back
81              
82             =head1 BUGS
83              
84             Please report any bugs or feature requests on the bugtracker website
85             https://github.com/xenoterracide/business-cybersource/issues
86              
87             When submitting a bug or request, please include a test-file or a
88             patch to an existing test-file that illustrates the bug or desired
89             feature.
90              
91             =head1 AUTHOR
92              
93             Caleb Cushing <xenoterracide@gmail.com>
94              
95             =head1 COPYRIGHT AND LICENSE
96              
97             This software is Copyright (c) 2015 by Caleb Cushing <xenoterracide@gmail.com>.
98              
99             This is free software, licensed under:
100              
101             The Artistic License 2.0 (GPL Compatible)
102              
103             =cut