File Coverage

blib/lib/Business/CyberSource/Request/Capture.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


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