File Coverage

lib/eBay/API/XML/DataType/TaxJurisdictionType.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::TaxJurisdictionType;
4              
5 1     1   1602 use strict;
  1         3  
  1         25  
6 1     1   5 use warnings;
  1         3  
  1         26  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. TaxJurisdictionType.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::TaxJurisdictionType
21              
22             =head1 DESCRIPTION
23              
24             Tax-related details for a region or jurisdiction.
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::TaxJurisdictionType 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              
43              
44             my @gaProperties = ( [ 'JurisdictionID', 'xs:string', '', '', '' ]
45             , [ 'JurisdictionName', 'xs:string', '', '', '' ]
46             , [ 'SalesTaxPercent', 'xs:float', '', '', '' ]
47             , [ 'ShippingIncludedInTax', 'xs:boolean', '', '', '' ]
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 setJurisdictionID()
73              
74             Representative identifier for the jurisdiction. Typically an
75             abbreviation (e.g. CA for California).
76              
77             Calls: SetTaxTable
78             RequiredInput: Yes
79              
80             # Argument: 'xs:string'
81              
82             =cut
83              
84             sub setJurisdictionID {
85             my $self = shift;
86             $self->{'JurisdictionID'} = shift
87             }
88              
89             =head2 getJurisdictionID()
90              
91             Calls: GetBidderList
92             GeteBayDetails
93             GetItemShipping
94             GetTaxTable
95             GetSellerList
96             Returned: Conditionally
97             Details: DetailLevel: ReturnAll, none
98              
99             Calls: GetItem
100             Returned: Conditionally
101             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
102              
103             Calls: GetOrderTransactions
104             Returned: Conditionally
105             Details: DetailLevel: ReturnAll
106              
107             Calls: GetItemTransactions
108             GetSellerTransactions
109             Returned: Conditionally
110             Details: DetailLevel: none, ItemReturnDescription, ReturnAll
111              
112             # Returns: 'xs:string'
113              
114             =cut
115              
116             sub getJurisdictionID {
117             my $self = shift;
118             return $self->{'JurisdictionID'};
119             }
120              
121              
122             =head2 setJurisdictionName()
123              
124             Full name for the jurisdiction or region for display purposes.
125              
126             # Argument: 'xs:string'
127              
128             =cut
129              
130             sub setJurisdictionName {
131             my $self = shift;
132             $self->{'JurisdictionName'} = shift
133             }
134              
135             =head2 getJurisdictionName()
136              
137             Calls: GeteBayDetails
138             Returned: Conditionally
139              
140             # Returns: 'xs:string'
141              
142             =cut
143              
144             sub getJurisdictionName {
145             my $self = shift;
146             return $self->{'JurisdictionName'};
147             }
148              
149              
150             =head2 setSalesTaxPercent()
151              
152             The tax percent to apply for a listing shipped to this
153             jurisdiction. The value passed in is stored with a precision of
154             3 digits after the decimal point (##.###).
155             GetTaxTable: this tag has no value if the user's tax table has not been set.
156              
157             Calls: SetTaxTable
158             RequiredInput: Yes
159              
160             # Argument: 'xs:float'
161              
162             =cut
163              
164             sub setSalesTaxPercent {
165             my $self = shift;
166             $self->{'SalesTaxPercent'} = shift
167             }
168              
169             =head2 getSalesTaxPercent()
170              
171             Calls: GetBidderList
172             GetItemShipping
173             GetSellerList
174             GetTaxTable
175             Returned: Conditionally
176             Details: DetailLevel: ReturnAll, none
177              
178             Calls: GetItem
179             Returned: Conditionally
180             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
181              
182             Calls: GetOrderTransactions
183             Returned: Conditionally
184             Details: DetailLevel: ReturnAll
185              
186             Calls: GetItemTransactions
187             GetSellerTransactions
188             Returned: Conditionally
189             Details: DetailLevel: none, ItemReturnDescription, ReturnAll
190              
191             # Returns: 'xs:float'
192              
193             =cut
194              
195             sub getSalesTaxPercent {
196             my $self = shift;
197             return $self->{'SalesTaxPercent'};
198             }
199              
200              
201             =head2 setShippingIncludedInTax()
202              
203             Whether shipping costs are to be part of the base amount that is taxed.
204             GetTaxTable: This tag is empty if the user did not previously provide information.
205              
206             Calls: SetTaxTable
207             RequiredInput: Yes
208              
209             # Argument: 'xs:boolean'
210              
211             =cut
212              
213             sub setShippingIncludedInTax {
214             my $self = shift;
215             $self->{'ShippingIncludedInTax'} = shift
216             }
217              
218             =head2 isShippingIncludedInTax()
219              
220             Calls: GetBidderList
221             GetItemShipping
222             GetSellerList
223             GetTaxTable
224             Returned: Conditionally
225             Details: DetailLevel: ReturnAll, none
226              
227             Calls: GetItem
228             Returned: Conditionally
229             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
230              
231             Calls: GetOrderTransactions
232             Returned: Conditionally
233             Details: DetailLevel: ReturnAll
234              
235             Calls: GetItemTransactions
236             GetSellerTransactions
237             Returned: Conditionally
238             Details: DetailLevel: none, ItemReturnDescription, ReturnAll
239              
240             # Returns: 'xs:boolean'
241              
242             =cut
243              
244             sub isShippingIncludedInTax {
245             my $self = shift;
246             return $self->{'ShippingIncludedInTax'};
247             }
248              
249              
250              
251              
252              
253             ## Attribute and Property lists
254             sub getPropertiesList {
255             my $self = shift;
256             return \@gaProperties;
257             }
258              
259             sub getAttributesList {
260             my $self = shift;
261             return \@gaAttributes;
262             }
263              
264              
265              
266             1;