File Coverage

lib/eBay/API/XML/DataType/PictureManagerPictureType.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::PictureManagerPictureType;
4              
5 1     1   1059 use strict;
  1         2  
  1         24  
6 1     1   4 use warnings;
  1         2  
  1         25  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. PictureManagerPictureType.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::PictureManagerPictureType
21              
22             =head1 DESCRIPTION
23              
24             A picture in a Picture Manager album.
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::PictureManagerPictureType inherits from the L class
36              
37             =cut
38              
39 1     1   37 use eBay::API::XML::BaseDataType;
  0            
  0            
40             our @ISA = ("eBay::API::XML::BaseDataType");
41              
42             use eBay::API::XML::DataType::PictureManagerPictureDisplayType;
43              
44              
45             my @gaProperties = ( [ 'Date', 'xs:dateTime', '', '', '' ]
46             , [ 'DisplayFormat', 'ns:PictureManagerPictureDisplayType', '1'
47             ,'eBay::API::XML::DataType::PictureManagerPictureDisplayType', '1' ]
48             , [ 'Name', 'xs:string', '', '', '' ]
49             , [ 'PictureURL', 'xs:anyURI', '', '', '' ]
50             );
51             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
52              
53             my @gaAttributes = (
54             );
55             push @gaAttributes, @{eBay::API::XML::BaseDataType::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 setDate()
75              
76             The date the picture was uploaded to the Picture Manager account.
77              
78             Calls: SetPictureManagerDetails
79             RequiredInput: Conditionally
80              
81             # Argument: 'xs:dateTime'
82              
83             =cut
84              
85             sub setDate {
86             my $self = shift;
87             $self->{'Date'} = shift
88             }
89              
90             =head2 getDate()
91              
92             Calls: GetPictureManagerDetails
93             Returned: Conditionally
94             Details: PictureManagerDetailLevel: none, ReturnPicture, ReturnAll
95              
96             # Returns: 'xs:dateTime'
97              
98             =cut
99              
100             sub getDate {
101             my $self = shift;
102             return $self->{'Date'};
103             }
104              
105              
106             =head2 setDisplayFormat()
107              
108             The type of picture display in Picture Manager.
109              
110             Calls: SetPictureManagerDetails
111             RequiredInput: Conditionally
112              
113             # Argument: reference to an array
114             of 'ns:PictureManagerPictureDisplayType'
115              
116             =cut
117              
118             sub setDisplayFormat {
119             my $self = shift;
120             $self->{'DisplayFormat'} =
121             $self->convertArray_To_RefToArrayIfNeeded(@_);
122             }
123              
124             =head2 getDisplayFormat()
125              
126             Calls: GetPictureManagerDetails
127             Returned: Conditionally
128             Details: PictureManagerDetailLevel: none, ReturnPicture, ReturnAll
129              
130             # Returns: reference to an array
131             of 'ns:PictureManagerPictureDisplayType'
132              
133             =cut
134              
135             sub getDisplayFormat {
136             my $self = shift;
137             return $self->_getDataTypeArray('DisplayFormat');
138             }
139              
140              
141             =head2 setName()
142              
143             The name of the picture, specified by the user.
144              
145             Calls: SetPictureManagerDetails
146             RequiredInput: Conditionally
147              
148             # Argument: 'xs:string'
149              
150             =cut
151              
152             sub setName {
153             my $self = shift;
154             $self->{'Name'} = shift
155             }
156              
157             =head2 getName()
158              
159             Calls: GetPictureManagerDetails
160             Returned: Conditionally
161             Details: PictureManagerDetailLevel: none, ReturnPicture, ReturnAll
162              
163             # Returns: 'xs:string'
164              
165             =cut
166              
167             sub getName {
168             my $self = shift;
169             return $self->{'Name'};
170             }
171              
172              
173             =head2 setPictureURL()
174              
175             The URL that identifies the picture in the album. If a URI has
176             spaces, replace them with %20.
177              
178             # Argument: 'xs:anyURI'
179              
180             =cut
181              
182             sub setPictureURL {
183             my $self = shift;
184             $self->{'PictureURL'} = shift
185             }
186              
187             =head2 getPictureURL()
188              
189             # Returns: 'xs:anyURI'
190              
191             =cut
192              
193             sub getPictureURL {
194             my $self = shift;
195             return $self->{'PictureURL'};
196             }
197              
198              
199              
200              
201              
202             ## Attribute and Property lists
203             sub getPropertiesList {
204             my $self = shift;
205             return \@gaProperties;
206             }
207              
208             sub getAttributesList {
209             my $self = shift;
210             return \@gaAttributes;
211             }
212              
213              
214              
215             1;