File Coverage

lib/eBay/API/XML/DataType/SiteHostedPictureDetailsType.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::SiteHostedPictureDetailsType;
4              
5 1     1   1308 use strict;
  1         4  
  1         36  
6 1     1   5 use warnings;
  1         3  
  1         31  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. SiteHostedPictureDetailsType.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::SiteHostedPictureDetailsType
21              
22             =head1 DESCRIPTION
23              
24             Contains information about an UploadSiteHostedPictures upload.
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::SiteHostedPictureDetailsType inherits from the L class
36              
37             =cut
38              
39 1     1   41 use eBay::API::XML::BaseDataType;
  0            
  0            
40             our @ISA = ("eBay::API::XML::BaseDataType");
41              
42             use eBay::API::XML::DataType::PictureSetMemberType;
43             use eBay::API::XML::DataType::Enum::PictureFormatCodeType;
44             use eBay::API::XML::DataType::Enum::PictureSetCodeType;
45              
46              
47             my @gaProperties = ( [ 'BaseURL', 'xs:anyURI', '', '', '' ]
48             , [ 'FullURL', 'xs:anyURI', '', '', '' ]
49             , [ 'PictureFormat', 'ns:PictureFormatCodeType', ''
50             ,'eBay::API::XML::DataType::Enum::PictureFormatCodeType', '' ]
51             , [ 'PictureName', 'xs:string', '', '', '' ]
52             , [ 'PictureSet', 'ns:PictureSetCodeType', ''
53             ,'eBay::API::XML::DataType::Enum::PictureSetCodeType', '' ]
54             , [ 'PictureSetMember', 'ns:PictureSetMemberType', '1'
55             ,'eBay::API::XML::DataType::PictureSetMemberType', '1' ]
56             );
57             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
58              
59             my @gaAttributes = (
60             );
61             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
62              
63             =head1 Subroutines:
64              
65             =cut
66              
67             sub new {
68             my $classname = shift;
69             my %args = @_;
70             my $self = $classname->SUPER::new(%args);
71             return $self;
72             }
73              
74             sub isScalar {
75             return 0;
76             }
77              
78              
79              
80             =head2 setBaseURL()
81              
82             Truncated version of FullURL.
83              
84             # Argument: 'xs:anyURI'
85              
86             =cut
87              
88             sub setBaseURL {
89             my $self = shift;
90             $self->{'BaseURL'} = shift
91             }
92              
93             =head2 getBaseURL()
94              
95             Calls: UploadSiteHostedPictures
96             Returned: Always
97              
98             # Returns: 'xs:anyURI'
99              
100             =cut
101              
102             sub getBaseURL {
103             my $self = shift;
104             return $self->{'BaseURL'};
105             }
106              
107              
108             =head2 setFullURL()
109              
110             The URL for the uploaded picture.
111             Store this value for association with an item listing.
112             That is, after you use UploadSiteHostedPictures to upload an image,
113             use the value in FullURL to associate the image with an item
114             (specify the value in Item.PictureDetails.PictureURL in
115             AddItem, ReviseItem, or RelistItem) within 48 hours.
116             Unassociated pictures are automatically deleted after that period.
117              
118             # Argument: 'xs:anyURI'
119              
120             =cut
121              
122             sub setFullURL {
123             my $self = shift;
124             $self->{'FullURL'} = shift
125             }
126              
127             =head2 getFullURL()
128              
129             Calls: UploadSiteHostedPictures
130             Returned: Always
131              
132             # Returns: 'xs:anyURI'
133              
134             =cut
135              
136             sub getFullURL {
137             my $self = shift;
138             return $self->{'FullURL'};
139             }
140              
141              
142             =head2 setPictureFormat()
143              
144             The format into which an uploaded picture has been converted.
145             This value is usually JPG, but may be GIF.
146              
147             # Argument: 'ns:PictureFormatCodeType'
148              
149             =cut
150              
151             sub setPictureFormat {
152             my $self = shift;
153             $self->{'PictureFormat'} = shift
154             }
155              
156             =head2 getPictureFormat()
157              
158             Calls: UploadSiteHostedPictures
159             Returned: Always
160              
161             # Returns: 'ns:PictureFormatCodeType'
162              
163             =cut
164              
165             sub getPictureFormat {
166             my $self = shift;
167             return $self->{'PictureFormat'};
168             }
169              
170              
171             =head2 setPictureName()
172              
173             Corresponds to the PictureName input value that you specified in the request.
174             You can use the PictureName output field to confirm that the
175             UploadSiteHostedPictures response corresponds to a specific
176             UploadSiteHostedPictures request.
177              
178             # Argument: 'xs:string'
179              
180             =cut
181              
182             sub setPictureName {
183             my $self = shift;
184             $self->{'PictureName'} = shift
185             }
186              
187             =head2 getPictureName()
188              
189             Calls: UploadSiteHostedPictures
190             Returned: Conditionally
191              
192             # Returns: 'xs:string'
193              
194             =cut
195              
196             sub getPictureName {
197             my $self = shift;
198             return $self->{'PictureName'};
199             }
200              
201              
202             =head2 setPictureSet()
203              
204             The size of images generated. This value may differ from the one requested,
205             e.g. if a Supersize image cannot be generated.
206              
207             # Argument: 'ns:PictureSetCodeType'
208              
209             =cut
210              
211             sub setPictureSet {
212             my $self = shift;
213             $self->{'PictureSet'} = shift
214             }
215              
216             =head2 getPictureSet()
217              
218             Calls: UploadSiteHostedPictures
219             Returned: Always
220              
221             # Returns: 'ns:PictureSetCodeType'
222              
223             =cut
224              
225             sub getPictureSet {
226             my $self = shift;
227             return $self->{'PictureSet'};
228             }
229              
230              
231             =head2 setPictureSetMember()
232              
233             URL and size information for each generated and stored size.
234             This data is not necessarily needed by your application,
235             but is provided for use in picture previews.
236             This data is used for display control for specific pictures in the generated imageset.
237             This data is supplied for all generated pictures.
238              
239             # Argument: reference to an array
240             of 'ns:PictureSetMemberType'
241              
242             =cut
243              
244             sub setPictureSetMember {
245             my $self = shift;
246             $self->{'PictureSetMember'} =
247             $self->convertArray_To_RefToArrayIfNeeded(@_);
248             }
249              
250             =head2 getPictureSetMember()
251              
252             Calls: UploadSiteHostedPictures
253             Returned: Always
254              
255             # Returns: reference to an array
256             of 'ns:PictureSetMemberType'
257              
258             =cut
259              
260             sub getPictureSetMember {
261             my $self = shift;
262             return $self->_getDataTypeArray('PictureSetMember');
263             }
264              
265              
266              
267              
268              
269             ## Attribute and Property lists
270             sub getPropertiesList {
271             my $self = shift;
272             return \@gaProperties;
273             }
274              
275             sub getAttributesList {
276             my $self = shift;
277             return \@gaAttributes;
278             }
279              
280              
281              
282             1;