File Coverage

lib/eBay/API/XML/DataType/MyeBayFavoriteSellerListType.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::MyeBayFavoriteSellerListType;
4              
5 1     1   1240 use strict;
  1         2  
  1         31  
6 1     1   5 use warnings;
  1         2  
  1         30  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. MyeBayFavoriteSellerListType.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::MyeBayFavoriteSellerListType
21              
22             =head1 DESCRIPTION
23              
24             A list of favorite sellers the user has saved on the My eBay page.
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::MyeBayFavoriteSellerListType inherits from the L class
36              
37             =cut
38              
39 1     1   40 use eBay::API::XML::BaseDataType;
  0            
  0            
40             our @ISA = ("eBay::API::XML::BaseDataType");
41              
42             use eBay::API::XML::DataType::MyeBayFavoriteSellerType;
43              
44              
45             my @gaProperties = ( [ 'FavoriteSeller', 'ns:MyeBayFavoriteSellerType', '1'
46             ,'eBay::API::XML::DataType::MyeBayFavoriteSellerType', '1' ]
47             , [ 'TotalAvailable', 'xs:int', '', '', '' ]
48             );
49             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
50              
51             my @gaAttributes = (
52             );
53             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
54              
55             =head1 Subroutines:
56              
57             =cut
58              
59             sub new {
60             my $classname = shift;
61             my %args = @_;
62             my $self = $classname->SUPER::new(%args);
63             return $self;
64             }
65              
66             sub isScalar {
67             return 0;
68             }
69              
70              
71              
72             =head2 setFavoriteSeller()
73              
74             A favorite seller the user has saved, with a user ID and store name.
75              
76             # Argument: reference to an array
77             of 'ns:MyeBayFavoriteSellerType'
78              
79             =cut
80              
81             sub setFavoriteSeller {
82             my $self = shift;
83             $self->{'FavoriteSeller'} =
84             $self->convertArray_To_RefToArrayIfNeeded(@_);
85             }
86              
87             =head2 getFavoriteSeller()
88              
89             Calls: GetMyeBayBuying
90             Returned: Conditionally
91             Details: DetailLevel: none, ReturnSummary, ReturnAll
92              
93             # Returns: reference to an array
94             of 'ns:MyeBayFavoriteSellerType'
95              
96             =cut
97              
98             sub getFavoriteSeller {
99             my $self = shift;
100             return $self->_getDataTypeArray('FavoriteSeller');
101             }
102              
103              
104             =head2 setTotalAvailable()
105              
106             The total number of favorite sellers saved.
107              
108             Max: 100
109              
110             # Argument: 'xs:int'
111              
112             =cut
113              
114             sub setTotalAvailable {
115             my $self = shift;
116             $self->{'TotalAvailable'} = shift
117             }
118              
119             =head2 getTotalAvailable()
120              
121             Calls: GetMyeBayBuying
122             Returned: Conditionally
123             Details: DetailLevel: none, ReturnSummary, ReturnAll
124              
125             # Returns: 'xs:int'
126              
127             =cut
128              
129             sub getTotalAvailable {
130             my $self = shift;
131             return $self->{'TotalAvailable'};
132             }
133              
134              
135              
136              
137              
138             ## Attribute and Property lists
139             sub getPropertiesList {
140             my $self = shift;
141             return \@gaProperties;
142             }
143              
144             sub getAttributesList {
145             my $self = shift;
146             return \@gaAttributes;
147             }
148              
149              
150              
151             1;