File Coverage

lib/eBay/API/XML/Call/ReviseLiveAuctionItem/ReviseLiveAuctionItemRequestType.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::Call::ReviseLiveAuctionItem::ReviseLiveAuctionItemRequestType;
4              
5 1     1   1453 use strict;
  1         2  
  1         28  
6 1     1   6 use warnings;
  1         2  
  1         32  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. ReviseLiveAuctionItemRequestType.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::Call::ReviseLiveAuctionItem::ReviseLiveAuctionItemRequestType
21              
22             =head1 DESCRIPTION
23              
24             Enables a seller to make changes to the definition of an active item
25             listing that listed for the Live Auction.
26              
27              
28              
29             =head1 SYNOPSIS
30              
31             =cut
32              
33              
34             =head1 INHERITANCE
35              
36             eBay::API::XML::Call::ReviseLiveAuctionItem::ReviseLiveAuctionItemRequestType inherits from the L class
37              
38             =cut
39              
40 1     1   34 use eBay::API::XML::RequestDataType;
  0            
  0            
41             our @ISA = ("eBay::API::XML::RequestDataType");
42              
43             use eBay::API::XML::DataType::ItemType;
44              
45              
46             my @gaProperties = ( [ 'DeletedField', 'xs:string', '1', '', '' ]
47             , [ 'Item', 'ns:ItemType', ''
48             ,'eBay::API::XML::DataType::ItemType', '1' ]
49             );
50             push @gaProperties, @{eBay::API::XML::RequestDataType::getPropertiesList()};
51              
52             my @gaAttributes = (
53             );
54             push @gaAttributes, @{eBay::API::XML::RequestDataType::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 setDeletedField()
74              
75             Reserved for future use.
76              
77             RequiredInput: No
78             # Argument: reference to an array
79             of 'xs:string'
80              
81             =cut
82              
83             sub setDeletedField {
84             my $self = shift;
85             $self->{'DeletedField'} =
86             $self->convertArray_To_RefToArrayIfNeeded(@_);
87             }
88              
89             =head2 getDeletedField()
90              
91             # Returns: reference to an array
92             of 'xs:string'
93              
94             =cut
95              
96             sub getDeletedField {
97             my $self = shift;
98             return $self->_getDataTypeArray('DeletedField');
99             }
100              
101              
102             =head2 setItem()
103              
104             Child elements hold the values for properties that are changing.
105             The Item.ID property must always be set to the ID of the listing
106             being changed. Set other fields in the Item object only for those
107             properties that are changing.
108              
109             RequiredInput: Yes
110             # Argument: 'ns:ItemType'
111              
112             =cut
113              
114             sub setItem {
115             my $self = shift;
116             $self->{'Item'} = shift
117             }
118              
119             =head2 getItem()
120              
121             # Returns: 'ns:ItemType'
122              
123             =cut
124              
125             sub getItem {
126             my $self = shift;
127             return $self->_getDataTypeInstance( 'Item'
128             ,'eBay::API::XML::DataType::ItemType');
129             }
130              
131              
132              
133              
134              
135             ## Attribute and Property lists
136             sub getPropertiesList {
137             my $self = shift;
138             return \@gaProperties;
139             }
140              
141             sub getAttributesList {
142             my $self = shift;
143             return \@gaAttributes;
144             }
145              
146              
147              
148             1;