File Coverage

lib/eBay/API/XML/DataType/ListingTipFieldType.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::ListingTipFieldType;
4              
5 1     1   1822 use strict;
  1         3  
  1         38  
6 1     1   17 use warnings;
  1         3  
  1         50  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. ListingTipFieldType.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::ListingTipFieldType
21              
22             =head1 DESCRIPTION
23              
24             (out) Identifies the item field that the tip relates to.
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::ListingTipFieldType inherits from the L class
36              
37             =cut
38              
39 1     1   48 use eBay::API::XML::BaseDataType;
  0            
  0            
40             our @ISA = ("eBay::API::XML::BaseDataType");
41              
42              
43              
44             my @gaProperties = ( [ 'CurrentFieldText', 'xs:string', '', '', '' ]
45             , [ 'CurrentFieldValue', 'xs:string', '', '', '' ]
46             , [ 'FieldTip', 'xs:string', '', '', '' ]
47             , [ 'ListingTipFieldID', 'xs:string', '', '', '' ]
48             );
49             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
50              
51             my @gaAttributes = (
52             );
53             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
54              
55             =head1 Subroutines:
56              
57             =cut
58              
59             sub new {
60             my $classname = shift;
61             my %args = @_;
62             my $self = $classname->SUPER::new(%args);
63             return $self;
64             }
65              
66             sub isScalar {
67             return 0;
68             }
69              
70              
71              
72             =head2 setCurrentFieldText()
73              
74             A label used to preface the current value of a field. For example,
75             "Current value" would be the CurrentValueText in "Current value: 25".
76             If no label exists, this element is not returned.
77              
78             MaxLength: 50
79              
80             # Argument: 'xs:string'
81              
82             =cut
83              
84             sub setCurrentFieldText {
85             my $self = shift;
86             $self->{'CurrentFieldText'} = shift
87             }
88              
89             =head2 getCurrentFieldText()
90              
91             Calls: GetItemRecommendations
92             Returned: Conditionally
93              
94             # Returns: 'xs:string'
95              
96             =cut
97              
98             sub getCurrentFieldText {
99             my $self = shift;
100             return $self->{'CurrentFieldText'};
101             }
102              
103              
104             =head2 setCurrentFieldValue()
105              
106             Current value of the field (in the listing or in the candidate item) or meta-data about the value.
107             For example, if the tip is recommending a longer item title, the CurrentFieldValue might specify
108             the current length of the title. If no current value is available, this information is not returned.
109              
110             # Argument: 'xs:string'
111              
112             =cut
113              
114             sub setCurrentFieldValue {
115             my $self = shift;
116             $self->{'CurrentFieldValue'} = shift
117             }
118              
119             =head2 getCurrentFieldValue()
120              
121             Calls: GetItemRecommendations
122             Returned: Conditionally
123              
124             # Returns: 'xs:string'
125              
126             =cut
127              
128             sub getCurrentFieldValue {
129             my $self = shift;
130             return $self->{'CurrentFieldValue'};
131             }
132              
133              
134             =head2 setFieldTip()
135              
136             Related text that appears near a field or at the top of the section within which
137             the field appears in the selling flow.
138              
139             MaxLength: 125
140              
141             # Argument: 'xs:string'
142              
143             =cut
144              
145             sub setFieldTip {
146             my $self = shift;
147             $self->{'FieldTip'} = shift
148             }
149              
150             =head2 getFieldTip()
151              
152             Calls: GetItemRecommendations
153             Returned: Conditionally
154              
155             # Returns: 'xs:string'
156              
157             =cut
158              
159             sub getFieldTip {
160             my $self = shift;
161             return $self->{'FieldTip'};
162             }
163              
164              
165             =head2 setListingTipFieldID()
166              
167             Identifier associated with the item field. Primarily for internal use. This value may change over time.
168              
169             # Argument: 'xs:string'
170              
171             =cut
172              
173             sub setListingTipFieldID {
174             my $self = shift;
175             $self->{'ListingTipFieldID'} = shift
176             }
177              
178             =head2 getListingTipFieldID()
179              
180             Calls: GetItemRecommendations
181             Returned: Conditionally
182              
183             # Returns: 'xs:string'
184              
185             =cut
186              
187             sub getListingTipFieldID {
188             my $self = shift;
189             return $self->{'ListingTipFieldID'};
190             }
191              
192              
193              
194              
195              
196             ## Attribute and Property lists
197             sub getPropertiesList {
198             my $self = shift;
199             return \@gaProperties;
200             }
201              
202             sub getAttributesList {
203             my $self = shift;
204             return \@gaAttributes;
205             }
206              
207              
208              
209             1;