File Coverage

lib/eBay/API/XML/DataType/ItemsCanceledEventType.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::ItemsCanceledEventType;
4              
5 1     1   1563 use strict;
  1         4  
  1         37  
6 1     1   6 use warnings;
  1         4  
  1         64  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. ItemsCanceledEventType.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::ItemsCanceledEventType
21              
22             =head1 DESCRIPTION
23              
24             Return the canceled items along with the seller info
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::ItemsCanceledEventType inherits from the L class
36              
37             =cut
38              
39 1     1   773 use eBay::API::XML::ResponseDataType;
  0            
  0            
40             our @ISA = ("eBay::API::XML::ResponseDataType");
41              
42             use eBay::API::XML::DataType::ItemIDArrayType;
43             use eBay::API::XML::DataType::UserIDType;
44              
45              
46             my @gaProperties = ( [ 'CanceledItemIDArray', 'ns:ItemIDArrayType', ''
47             ,'eBay::API::XML::DataType::ItemIDArrayType', '1' ]
48             , [ 'EligibleForRelist', 'xs:boolean', '', '', '' ]
49             , [ 'SellerID', 'ns:UserIDType', ''
50             ,'eBay::API::XML::DataType::UserIDType', '1' ]
51             );
52             push @gaProperties, @{eBay::API::XML::ResponseDataType::getPropertiesList()};
53              
54             my @gaAttributes = (
55             );
56             push @gaAttributes, @{eBay::API::XML::ResponseDataType::getAttributesList()};
57              
58             =head1 Subroutines:
59              
60             =cut
61              
62             sub new {
63             my $classname = shift;
64             my %args = @_;
65             my $self = $classname->SUPER::new(%args);
66             return $self;
67             }
68              
69             sub isScalar {
70             return 0;
71             }
72              
73              
74              
75             =head2 setCanceledItemIDArray()
76              
77             Array of items ended
78              
79             # Argument: 'ns:ItemIDArrayType'
80              
81             =cut
82              
83             sub setCanceledItemIDArray {
84             my $self = shift;
85             $self->{'CanceledItemIDArray'} = shift
86             }
87              
88             =head2 getCanceledItemIDArray()
89              
90             # Returns: 'ns:ItemIDArrayType'
91              
92             =cut
93              
94             sub getCanceledItemIDArray {
95             my $self = shift;
96             return $self->_getDataTypeInstance( 'CanceledItemIDArray'
97             ,'eBay::API::XML::DataType::ItemIDArrayType');
98             }
99              
100              
101             =head2 setEligibleForRelist()
102              
103             To indicate to seller whether the items ended are eligible for
104             Relist or not
105              
106             # Argument: 'xs:boolean'
107              
108             =cut
109              
110             sub setEligibleForRelist {
111             my $self = shift;
112             $self->{'EligibleForRelist'} = shift
113             }
114              
115             =head2 isEligibleForRelist()
116              
117             # Returns: 'xs:boolean'
118              
119             =cut
120              
121             sub isEligibleForRelist {
122             my $self = shift;
123             return $self->{'EligibleForRelist'};
124             }
125              
126              
127             =head2 setSellerID()
128              
129             Seller numeric id
130              
131             # Argument: 'ns:UserIDType'
132              
133             =cut
134              
135             sub setSellerID {
136             my $self = shift;
137             $self->{'SellerID'} = shift
138             }
139              
140             =head2 getSellerID()
141              
142             # Returns: 'ns:UserIDType'
143              
144             =cut
145              
146             sub getSellerID {
147             my $self = shift;
148             return $self->_getDataTypeInstance( 'SellerID'
149             ,'eBay::API::XML::DataType::UserIDType');
150             }
151              
152              
153              
154              
155              
156             ## Attribute and Property lists
157             sub getPropertiesList {
158             my $self = shift;
159             return \@gaProperties;
160             }
161              
162             sub getAttributesList {
163             my $self = shift;
164             return \@gaAttributes;
165             }
166              
167              
168              
169             1;