File Coverage

lib/eBay/API/XML/DataType/CancelOfferArrayType.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::CancelOfferArrayType;
4              
5 1     1   1013 use strict;
  1         1  
  1         31  
6 1     1   5 use warnings;
  1         2  
  1         31  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. CancelOfferArrayType.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::CancelOfferArrayType
21              
22             =head1 DESCRIPTION
23              
24             Container for a list of offers. May contain zero, one, or multiple
25             OfferType objects, each of which represents one offer extended by
26             a user on a listing.
27              
28              
29              
30             =head1 SYNOPSIS
31              
32             =cut
33              
34              
35             =head1 INHERITANCE
36              
37             eBay::API::XML::DataType::CancelOfferArrayType inherits from the L class
38              
39             =cut
40              
41 1     1   53 use eBay::API::XML::BaseDataType;
  0            
  0            
42             our @ISA = ("eBay::API::XML::BaseDataType");
43              
44             use eBay::API::XML::DataType::CancelOfferType;
45              
46              
47             my @gaProperties = ( [ 'CancelOffer', 'ns:CancelOfferType', '1'
48             ,'eBay::API::XML::DataType::CancelOfferType', '1' ]
49             );
50             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
51              
52             my @gaAttributes = (
53             );
54             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
55              
56             =head1 Subroutines:
57              
58             =cut
59              
60             sub new {
61             my $classname = shift;
62             my %args = @_;
63             my $self = $classname->SUPER::new(%args);
64             return $self;
65             }
66              
67             sub isScalar {
68             return 0;
69             }
70              
71              
72              
73             =head2 setCancelOffer()
74              
75             Contains the data for one offer. This includes: data for the user making the
76             offer, the amount of the offer, the quantity of items being bought from the
77             listing, the type of offer being made, and more.
78              
79             # Argument: reference to an array
80             of 'ns:CancelOfferType'
81              
82             =cut
83              
84             sub setCancelOffer {
85             my $self = shift;
86             $self->{'CancelOffer'} =
87             $self->convertArray_To_RefToArrayIfNeeded(@_);
88             }
89              
90             =head2 getCancelOffer()
91              
92             # Returns: reference to an array
93             of 'ns:CancelOfferType'
94              
95             =cut
96              
97             sub getCancelOffer {
98             my $self = shift;
99             return $self->_getDataTypeArray('CancelOffer');
100             }
101              
102              
103              
104              
105              
106             ## Attribute and Property lists
107             sub getPropertiesList {
108             my $self = shift;
109             return \@gaProperties;
110             }
111              
112             sub getAttributesList {
113             my $self = shift;
114             return \@gaAttributes;
115             }
116              
117              
118              
119             1;