File Coverage

lib/eBay/API/XML/Call/GetPictureManagerDetails/GetPictureManagerDetailsRequestType.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::GetPictureManagerDetails::GetPictureManagerDetailsRequestType;
4              
5 1     1   1431 use strict;
  1         2  
  1         24  
6 1     1   4 use warnings;
  1         2  
  1         27  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. GetPictureManagerDetailsRequestType.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::GetPictureManagerDetails::GetPictureManagerDetailsRequestType
21              
22             =head1 DESCRIPTION
23              
24             Requests information about folders or pictures in a Picture Manager account
25             or the account settings.
26              
27              
28              
29             =head1 SYNOPSIS
30              
31             =cut
32              
33              
34             =head1 INHERITANCE
35              
36             eBay::API::XML::Call::GetPictureManagerDetails::GetPictureManagerDetailsRequestType inherits from the L class
37              
38             =cut
39              
40 1     1   37 use eBay::API::XML::RequestDataType;
  0            
  0            
41             our @ISA = ("eBay::API::XML::RequestDataType");
42              
43             use eBay::API::XML::DataType::Enum::PictureManagerDetailLevelCodeType;
44              
45              
46             my @gaProperties = ( [ 'FolderID', 'xs:int', '', '', '' ]
47             , [ 'PictureManagerDetailLevel', 'ns:PictureManagerDetailLevelCodeType', ''
48             ,'eBay::API::XML::DataType::Enum::PictureManagerDetailLevelCodeType', '' ]
49             , [ 'PictureURL', 'xs:string', '', '', '' ]
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 setFolderID()
75              
76             The ID of a folder in the user's Picture Manager album for which you want information.
77             If you specify both FolderID and PictureURL, the picture must exist
78             in the folder.
79              
80             RequiredInput: No
81             # Argument: 'xs:int'
82              
83             =cut
84              
85             sub setFolderID {
86             my $self = shift;
87             $self->{'FolderID'} = shift
88             }
89              
90             =head2 getFolderID()
91              
92             # Returns: 'xs:int'
93              
94             =cut
95              
96             sub getFolderID {
97             my $self = shift;
98             return $self->{'FolderID'};
99             }
100              
101              
102             =head2 setPictureManagerDetailLevel()
103              
104             The type of information you want returned, about pictures and folders,
105             the account subscription, or both. Use this element rather than the generic DetailLevel element defined in AbstractRequestType. You can use the following values: ReturnAll, ReturnSubscription, or ReturnPicture.
106              
107             PresentDetails: Yes
108              
109             RequiredInput: No
110             # Argument: 'ns:PictureManagerDetailLevelCodeType'
111              
112             =cut
113              
114             sub setPictureManagerDetailLevel {
115             my $self = shift;
116             $self->{'PictureManagerDetailLevel'} = shift
117             }
118              
119             =head2 getPictureManagerDetailLevel()
120              
121             # Returns: 'ns:PictureManagerDetailLevelCodeType'
122              
123             =cut
124              
125             sub getPictureManagerDetailLevel {
126             my $self = shift;
127             return $self->{'PictureManagerDetailLevel'};
128             }
129              
130              
131             =head2 setPictureURL()
132              
133             The URL of a picture in the user's Picture Manager album.
134             If you specify both FolderID and PictureURL, the picture must
135             exist in the folder.
136              
137             RequiredInput: No
138             # Argument: 'xs:string'
139              
140             =cut
141              
142             sub setPictureURL {
143             my $self = shift;
144             $self->{'PictureURL'} = shift
145             }
146              
147             =head2 getPictureURL()
148              
149             # Returns: 'xs:string'
150              
151             =cut
152              
153             sub getPictureURL {
154             my $self = shift;
155             return $self->{'PictureURL'};
156             }
157              
158              
159              
160              
161              
162             ## Attribute and Property lists
163             sub getPropertiesList {
164             my $self = shift;
165             return \@gaProperties;
166             }
167              
168             sub getAttributesList {
169             my $self = shift;
170             return \@gaAttributes;
171             }
172              
173              
174              
175             1;