File Coverage

lib/eBay/API/XML/DataType/ListingCheckoutRedirectPreferenceType.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::ListingCheckoutRedirectPreferenceType;
4              
5 1     1   2337 use strict;
  1         3  
  1         36  
6 1     1   7 use warnings;
  1         3  
  1         38  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. ListingCheckoutRedirectPreferenceType.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::ListingCheckoutRedirectPreferenceType
21              
22             =head1 DESCRIPTION
23              
24             ProStores listing level preferences.
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::ListingCheckoutRedirectPreferenceType inherits from the L class
36              
37             =cut
38              
39 1     1   51 use eBay::API::XML::BaseDataType;
  0            
  0            
40             our @ISA = ("eBay::API::XML::BaseDataType");
41              
42              
43              
44             my @gaProperties = ( [ 'ProStoresStoreName', 'xs:string', '', '', '' ]
45             , [ 'SellerThirdPartyUsername', 'xs:string', '', '', '' ]
46             );
47             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
48              
49             my @gaAttributes = (
50             );
51             push @gaAttributes, @{eBay::API::XML::BaseDataType::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             =head2 setProStoresStoreName()
71              
72             The name of the store, if ThirdPartyCheckout is true.
73             To remove this value when revising or relisting an item, use DeletedField.
74              
75             MaxLength: 200
76              
77             Calls: AddItem
78             RelistItem
79             ReviseItem
80             VerifyAddItem
81             RequiredInput: Conditionally
82              
83             # Argument: 'xs:string'
84              
85             =cut
86              
87             sub setProStoresStoreName {
88             my $self = shift;
89             $self->{'ProStoresStoreName'} = shift
90             }
91              
92             =head2 getProStoresStoreName()
93              
94             Calls: GetItem
95             Returned: Conditionally
96             Details: DetailLevel: none, ItemReturnAttributes, ItemReturnDescription, ReturnAll
97              
98             Calls: GetSellerList
99             Returned: Conditionally
100             Details: DetailLevel: ItemReturnDescription, ReturnAll
101              
102             # Returns: 'xs:string'
103              
104             =cut
105              
106             sub getProStoresStoreName {
107             my $self = shift;
108             return $self->{'ProStoresStoreName'};
109             }
110              
111              
112             =head2 setSellerThirdPartyUsername()
113              
114             The user name of the associated store, if ThirdPartyCheckout is true.
115             To remove this value when revising or relisting an item, use DeletedField.
116              
117             MaxLength: 200
118              
119             Calls: AddItem
120             RelistItem
121             ReviseItem
122             VerifyAddItem
123             RequiredInput: Conditionally
124              
125             # Argument: 'xs:string'
126              
127             =cut
128              
129             sub setSellerThirdPartyUsername {
130             my $self = shift;
131             $self->{'SellerThirdPartyUsername'} = shift
132             }
133              
134             =head2 getSellerThirdPartyUsername()
135              
136             Calls: GetItemTransactions
137             GetSellerTransactions
138             Returned: Conditionally
139             Details: DetailLevel: none, ItemReturnDescription, ReturnAll
140              
141             Calls: GetOrders
142             Returned: Conditionally
143             Details: DetailLevel: none
144              
145             Calls: GetItem
146             Returned: Conditionally
147             Details: DetailLevel: none, ItemReturnAttributes, ItemReturnDescription, ReturnAll
148              
149             Calls: GetSellerList
150             Returned: Conditionally
151             Details: DetailLevel: ItemReturnDescription, ReturnAll
152              
153             # Returns: 'xs:string'
154              
155             =cut
156              
157             sub getSellerThirdPartyUsername {
158             my $self = shift;
159             return $self->{'SellerThirdPartyUsername'};
160             }
161              
162              
163              
164              
165              
166             ## Attribute and Property lists
167             sub getPropertiesList {
168             my $self = shift;
169             return \@gaProperties;
170             }
171              
172             sub getAttributesList {
173             my $self = shift;
174             return \@gaAttributes;
175             }
176              
177              
178              
179             1;