File Coverage

lib/eBay/API/XML/DataType/PowerSellerDashboardType.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::PowerSellerDashboardType;
4              
5 1     1   1084 use strict;
  1         3  
  1         31  
6 1     1   5 use warnings;
  1         1  
  1         29  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. PowerSellerDashboardType.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::PowerSellerDashboardType
21              
22             =head1 DESCRIPTION
23              
24             Provides information about your PowerSeller status.
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::PowerSellerDashboardType inherits from the L class
36              
37             =cut
38              
39 1     1   34 use eBay::API::XML::BaseDataType;
  0            
  0            
40             our @ISA = ("eBay::API::XML::BaseDataType");
41              
42             use eBay::API::XML::DataType::SellerDashboardAlertType;
43             use eBay::API::XML::DataType::Enum::SellerLevelCodeType;
44              
45              
46             my @gaProperties = ( [ 'Alert', 'ns:SellerDashboardAlertType', '1'
47             ,'eBay::API::XML::DataType::SellerDashboardAlertType', '1' ]
48             , [ 'Level', 'ns:SellerLevelCodeType', ''
49             ,'eBay::API::XML::DataType::Enum::SellerLevelCodeType', '' ]
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 setAlert()
75              
76             A message to help you understand your PowerSeller status.
77             If you have policy violations, it is a good idea to check to see
78             the policies you violated and to take steps to improve your selling practices.
79             Violations can result in listing cancellations, restrictions on your account,
80             and loss of PowerSeller status and privileges.
81              
82             # Argument: reference to an array
83             of 'ns:SellerDashboardAlertType'
84              
85             =cut
86              
87             sub setAlert {
88             my $self = shift;
89             $self->{'Alert'} =
90             $self->convertArray_To_RefToArrayIfNeeded(@_);
91             }
92              
93             =head2 getAlert()
94              
95             Calls: GetSellerDashboard
96             Returned: Conditionally
97              
98             # Returns: reference to an array
99             of 'ns:SellerDashboardAlertType'
100              
101             =cut
102              
103             sub getAlert {
104             my $self = shift;
105             return $self->_getDataTypeArray('Alert');
106             }
107              
108              
109             =head2 setLevel()
110              
111             Your eBay PowerSeller tier. PowerSellers are distinguished in 5 tiers
112             based on average monthly sales. Benefits and services vary for each tier.
113             eBay calculates eligibility for each tier monthly.
114              
115             SeeLink: URL: http://pages.ebay.com/services/buyandsell/powerseller/criteria.html
116             Title: eBay US PowerSeller Requirements and Levels
117              
118             # Argument: 'ns:SellerLevelCodeType'
119              
120             =cut
121              
122             sub setLevel {
123             my $self = shift;
124             $self->{'Level'} = shift
125             }
126              
127             =head2 getLevel()
128              
129             Calls: GetSellerDashboard
130             Returned: Conditionally
131              
132             # Returns: 'ns:SellerLevelCodeType'
133              
134             =cut
135              
136             sub getLevel {
137             my $self = shift;
138             return $self->{'Level'};
139             }
140              
141              
142              
143              
144              
145             ## Attribute and Property lists
146             sub getPropertiesList {
147             my $self = shift;
148             return \@gaProperties;
149             }
150              
151             sub getAttributesList {
152             my $self = shift;
153             return \@gaAttributes;
154             }
155              
156              
157              
158             1;