File Coverage

lib/eBay/API/XML/Call/AddLiveAuctionItem/AddLiveAuctionItemRequestType.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::AddLiveAuctionItem::AddLiveAuctionItemRequestType;
4              
5 1     1   1439 use strict;
  1         2  
  1         32  
6 1     1   4 use warnings;
  1         2  
  1         27  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. AddLiveAuctionItemRequestType.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::AddLiveAuctionItem::AddLiveAuctionItemRequestType
21              
22             =head1 DESCRIPTION
23              
24             Lists a lot item on the eBay Live Auctions site. The lot item will
25             also be visible to users who search and browse the US eBay.com
26             site. Only authorized eBay Live Auctions sellers can list lot
27             items.
28              
29              
30              
31             =head1 SYNOPSIS
32              
33             =cut
34              
35              
36             =head1 INHERITANCE
37              
38             eBay::API::XML::Call::AddLiveAuctionItem::AddLiveAuctionItemRequestType inherits from the L class
39              
40             =cut
41              
42 1     1   33 use eBay::API::XML::RequestDataType;
  0            
  0            
43             our @ISA = ("eBay::API::XML::RequestDataType");
44              
45             use eBay::API::XML::DataType::ItemType;
46              
47              
48             my @gaProperties = ( [ 'Item', 'ns:ItemType', ''
49             ,'eBay::API::XML::DataType::ItemType', '1' ]
50             );
51             push @gaProperties, @{eBay::API::XML::RequestDataType::getPropertiesList()};
52              
53             my @gaAttributes = (
54             );
55             push @gaAttributes, @{eBay::API::XML::RequestDataType::getAttributesList()};
56              
57             =head1 Subroutines:
58              
59             =cut
60              
61             sub new {
62             my $classname = shift;
63             my %args = @_;
64             my $self = $classname->SUPER::new(%args);
65             return $self;
66             }
67              
68             sub isScalar {
69             return 0;
70             }
71              
72              
73              
74             =head2 setItem()
75              
76             Specifies the values that define the new lot item.
77             Item is a required input.
78              
79             RequiredInput: Yes
80             # Argument: 'ns:ItemType'
81              
82             =cut
83              
84             sub setItem {
85             my $self = shift;
86             $self->{'Item'} = shift
87             }
88              
89             =head2 getItem()
90              
91             # Returns: 'ns:ItemType'
92              
93             =cut
94              
95             sub getItem {
96             my $self = shift;
97             return $self->_getDataTypeInstance( 'Item'
98             ,'eBay::API::XML::DataType::ItemType');
99             }
100              
101              
102              
103              
104              
105             ## Attribute and Property lists
106             sub getPropertiesList {
107             my $self = shift;
108             return \@gaProperties;
109             }
110              
111             sub getAttributesList {
112             my $self = shift;
113             return \@gaAttributes;
114             }
115              
116              
117              
118             1;