File Coverage

lib/eBay/API/XML/Call/GetPictureManagerOptions/GetPictureManagerOptionsRequestType.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::GetPictureManagerOptions::GetPictureManagerOptionsRequestType;
4              
5 1     1   1384 use strict;
  1         2  
  1         26  
6 1     1   5 use warnings;
  1         2  
  1         25  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. GetPictureManagerOptionsRequestType.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::GetPictureManagerOptions::GetPictureManagerOptionsRequestType
21              
22             =head1 DESCRIPTION
23              
24             Requests a list of Picture Manager options and allowed values,
25             such as subscription type and picture display.
26              
27              
28              
29             =head1 SYNOPSIS
30              
31             =cut
32              
33              
34             =head1 INHERITANCE
35              
36             eBay::API::XML::Call::GetPictureManagerOptions::GetPictureManagerOptionsRequestType inherits from the L class
37              
38             =cut
39              
40 1     1   33 use eBay::API::XML::RequestDataType;
  0            
  0            
41             our @ISA = ("eBay::API::XML::RequestDataType");
42              
43              
44              
45             my @gaProperties = (
46             );
47             push @gaProperties, @{eBay::API::XML::RequestDataType::getPropertiesList()};
48              
49             my @gaAttributes = (
50             );
51             push @gaAttributes, @{eBay::API::XML::RequestDataType::getAttributesList()};
52              
53             =head1 Subroutines:
54              
55             =cut
56              
57             sub new {
58             my $classname = shift;
59             my %args = @_;
60             my $self = $classname->SUPER::new(%args);
61             return $self;
62             }
63              
64             sub isScalar {
65             return 0;
66             }
67              
68              
69              
70              
71              
72              
73             ## Attribute and Property lists
74             sub getPropertiesList {
75             my $self = shift;
76             return \@gaProperties;
77             }
78              
79             sub getAttributesList {
80             my $self = shift;
81             return \@gaAttributes;
82             }
83              
84              
85              
86             1;