File Coverage

lib/eBay/API/XML/DataType/OrderTransactionType.pm
Criterion Covered Total %
statement 7 9 77.7
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 12 83.3


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2              
3             package eBay::API::XML::DataType::OrderTransactionType;
4              
5 1     1   1256 use strict;
  1         2  
  1         34  
6 1     1   5 use warnings;
  1         2  
  1         71  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. OrderTransactionType.pm
12             # Generated by: ......... genEBayApiDataTypes.pl
13             # Last Generated: ....... 08/24/2008 16:44
14             # API Release Number: ... 579
15             #
16             ##########################################################################
17              
18             =head1 NAME
19              
20             eBay::API::XML::DataType::OrderTransactionType
21              
22             =head1 DESCRIPTION
23              
24             Contains an order or a transaction. A transaction is the sale of one or
25             more items from a seller's listing to a buyer. An order combines two or more transactions
26             into a single payment.
27              
28              
29              
30             =head1 SYNOPSIS
31              
32             =cut
33              
34              
35             =head1 INHERITANCE
36              
37             eBay::API::XML::DataType::OrderTransactionType inherits from the L class
38              
39             =cut
40              
41 1     1   45 use eBay::API::XML::BaseDataType;
  0            
  0            
42             our @ISA = ("eBay::API::XML::BaseDataType");
43              
44             use eBay::API::XML::DataType::OrderType;
45             use eBay::API::XML::DataType::TransactionType;
46              
47              
48             my @gaProperties = ( [ 'Order', 'ns:OrderType', ''
49             ,'eBay::API::XML::DataType::OrderType', '1' ]
50             , [ 'Transaction', 'ns:TransactionType', ''
51             ,'eBay::API::XML::DataType::TransactionType', '1' ]
52             );
53             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
54              
55             my @gaAttributes = (
56             );
57             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
58              
59             =head1 Subroutines:
60              
61             =cut
62              
63             sub new {
64             my $classname = shift;
65             my %args = @_;
66             my $self = $classname->SUPER::new(%args);
67             return $self;
68             }
69              
70             sub isScalar {
71             return 0;
72             }
73              
74              
75              
76             =head2 setOrder()
77              
78             Contains the information describing an order.
79              
80             # Argument: 'ns:OrderType'
81              
82             =cut
83              
84             sub setOrder {
85             my $self = shift;
86             $self->{'Order'} = shift
87             }
88              
89             =head2 getOrder()
90              
91             Calls: GetMyeBayBuying
92             Returned: Conditionally
93             Details: DetailLevel: none, ReturnSummary, ReturnAll
94             Context: WonList
95             DeletedFromWonList
96              
97             Calls: GetMyeBaySelling
98             Returned: Conditionally
99             Details: DetailLevel: none, ReturnSummary, ReturnAll
100             Context: SoldList
101             DeletedFromSoldList
102              
103             # Returns: 'ns:OrderType'
104              
105             =cut
106              
107             sub getOrder {
108             my $self = shift;
109             return $self->_getDataTypeInstance( 'Order'
110             ,'eBay::API::XML::DataType::OrderType');
111             }
112              
113              
114             =head2 setTransaction()
115              
116             Contains the information describing a transaction.
117              
118             # Argument: 'ns:TransactionType'
119              
120             =cut
121              
122             sub setTransaction {
123             my $self = shift;
124             $self->{'Transaction'} = shift
125             }
126              
127             =head2 getTransaction()
128              
129             Calls: GetMyeBayBuying
130             Returned: Conditionally
131             Details: DetailLevel: none, ReturnSummary, ReturnAll
132             Context: WonList
133             DeletedFromWonList
134              
135             Calls: GetMyeBaySelling
136             Returned: Conditionally
137             Details: DetailLevel: none, ReturnSummary, ReturnAll
138             Context: SoldList
139             DeletedFromSoldList
140              
141             # Returns: 'ns:TransactionType'
142              
143             =cut
144              
145             sub getTransaction {
146             my $self = shift;
147             return $self->_getDataTypeInstance( 'Transaction'
148             ,'eBay::API::XML::DataType::TransactionType');
149             }
150              
151              
152              
153              
154              
155             ## Attribute and Property lists
156             sub getPropertiesList {
157             my $self = shift;
158             return \@gaProperties;
159             }
160              
161             sub getAttributesList {
162             my $self = shift;
163             return \@gaAttributes;
164             }
165              
166              
167              
168             1;