File Coverage

lib/eBay/API/XML/DataType/ShippingServiceDetailsType.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::ShippingServiceDetailsType;
4              
5 1     1   1329 use strict;
  1         3  
  1         32  
6 1     1   5 use warnings;
  1         2  
  1         29  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. ShippingServiceDetailsType.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::ShippingServiceDetailsType
21              
22             =head1 DESCRIPTION
23              
24             Details about a specific shipping service.
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::ShippingServiceDetailsType inherits from the L class
36              
37             =cut
38              
39 1     1   37 use eBay::API::XML::BaseDataType;
  0            
  0            
40             our @ISA = ("eBay::API::XML::BaseDataType");
41              
42             use eBay::API::XML::DataType::AnnouncementMessageType;
43             use eBay::API::XML::DataType::Enum::ShippingCarrierCodeType;
44             use eBay::API::XML::DataType::Enum::ShippingPackageCodeType;
45             use eBay::API::XML::DataType::Enum::ShippingServiceCodeType;
46             use eBay::API::XML::DataType::Enum::ShippingTypeCodeType;
47              
48              
49             my @gaProperties = ( [ 'CODService', 'xs:boolean', '', '', '' ]
50             , [ 'DeprecationDetails', 'ns:AnnouncementMessageType', '1'
51             ,'eBay::API::XML::DataType::AnnouncementMessageType', '1' ]
52             , [ 'Description', 'xs:string', '', '', '' ]
53             , [ 'DimensionsRequired', 'xs:boolean', '', '', '' ]
54             , [ 'ExpeditedService', 'xs:boolean', '', '', '' ]
55             , [ 'InternationalService', 'xs:boolean', '', '', '' ]
56             , [ 'MappedToShippingServiceID', 'xs:int', '', '', '' ]
57             , [ 'ServiceType', 'ns:ShippingTypeCodeType', '1'
58             ,'eBay::API::XML::DataType::Enum::ShippingTypeCodeType', '' ]
59             , [ 'ShippingCarrier', 'ns:ShippingCarrierCodeType', '1'
60             ,'eBay::API::XML::DataType::Enum::ShippingCarrierCodeType', '' ]
61             , [ 'ShippingPackage', 'ns:ShippingPackageCodeType', '1'
62             ,'eBay::API::XML::DataType::Enum::ShippingPackageCodeType', '' ]
63             , [ 'ShippingService', 'xs:token', '', '', '' ]
64             , [ 'ShippingServiceCode', 'ns:ShippingServiceCodeType', ''
65             ,'eBay::API::XML::DataType::Enum::ShippingServiceCodeType', '' ]
66             , [ 'ShippingServiceID', 'xs:int', '', '', '' ]
67             , [ 'ShippingTimeMax', 'xs:int', '', '', '' ]
68             , [ 'ShippingTimeMin', 'xs:int', '', '', '' ]
69             , [ 'SurchargeApplicable', 'xs:boolean', '', '', '' ]
70             , [ 'ValidForSellingFlow', 'xs:boolean', '', '', '' ]
71             );
72             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
73              
74             my @gaAttributes = (
75             );
76             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
77              
78             =head1 Subroutines:
79              
80             =cut
81              
82             sub new {
83             my $classname = shift;
84             my %args = @_;
85             my $self = $classname->SUPER::new(%args);
86             return $self;
87             }
88              
89             sub isScalar {
90             return 0;
91             }
92              
93              
94              
95             =head2 setCODService()
96              
97             Applies to the Italy site (site ID 101) only. Indicates whether the shipping service
98             is a Cash On Delivery shipping service.
99             Returned only if true.
100              
101             # Argument: 'xs:boolean'
102              
103             =cut
104              
105             sub setCODService {
106             my $self = shift;
107             $self->{'CODService'} = shift
108             }
109              
110             =head2 isCODService()
111              
112             Calls: GeteBayDetails
113             Returned: Conditionally
114              
115             # Returns: 'xs:boolean'
116              
117             =cut
118              
119             sub isCODService {
120             my $self = shift;
121             return $self->{'CODService'};
122             }
123              
124              
125             =head2 setDeprecationDetails()
126              
127             A mechanism by which details about deprecation of a shipping service is
128             announced. See also MappedToShippingServiceID.
129             If this container is empty, it means that there is no mapping for this
130             shipping service and that the shipping service will be dropped from the
131             listing without an accompanying warning message from the eBay API.
132              
133             SeeLink: URL: http://developer.ebay.com/DevZone/XML/docs/WebHelp/index.htm?context=eBay_XML_API&topic=DeprecatedShippingServices
134             Title: Deprecated Shipping Services
135              
136             # Argument: reference to an array
137             of 'ns:AnnouncementMessageType'
138              
139             =cut
140              
141             sub setDeprecationDetails {
142             my $self = shift;
143             $self->{'DeprecationDetails'} =
144             $self->convertArray_To_RefToArrayIfNeeded(@_);
145             }
146              
147             =head2 getDeprecationDetails()
148              
149             Calls: GeteBayDetails
150             Returned: Conditionally
151              
152             # Returns: reference to an array
153             of 'ns:AnnouncementMessageType'
154              
155             =cut
156              
157             sub getDeprecationDetails {
158             my $self = shift;
159             return $self->_getDataTypeArray('DeprecationDetails');
160             }
161              
162              
163             =head2 setDescription()
164              
165             Full name of the shipping service for display purposes.
166              
167             # Argument: 'xs:string'
168              
169             =cut
170              
171             sub setDescription {
172             my $self = shift;
173             $self->{'Description'} = shift
174             }
175              
176             =head2 getDescription()
177              
178             Calls: GeteBayDetails
179             Returned: Conditionally
180              
181             # Returns: 'xs:string'
182              
183             =cut
184              
185             sub getDescription {
186             my $self = shift;
187             return $self->{'Description'};
188             }
189              
190              
191             =head2 setDimensionsRequired()
192              
193             True if this shipping service requires package dimensions.
194              
195             # Argument: 'xs:boolean'
196              
197             =cut
198              
199             sub setDimensionsRequired {
200             my $self = shift;
201             $self->{'DimensionsRequired'} = shift
202             }
203              
204             =head2 isDimensionsRequired()
205              
206             Calls: GeteBayDetails
207             Returned: Conditionally
208              
209             # Returns: 'xs:boolean'
210              
211             =cut
212              
213             sub isDimensionsRequired {
214             my $self = shift;
215             return $self->{'DimensionsRequired'};
216             }
217              
218              
219             =head2 setExpeditedService()
220              
221             Indicates whether the shipping service is an expedited shipping service.
222             See Enabling Get It Fast. Whether the service is an expedited
223             shipping service. Only returned for sites for which the Get It
224             Fast feature is enabled and only if true.

225             Related fields:
226             Item.DispatchTimeMax and Item.GetItFast in AddItem
227              
228             # Argument: 'xs:boolean'
229              
230             =cut
231              
232             sub setExpeditedService {
233             my $self = shift;
234             $self->{'ExpeditedService'} = shift
235             }
236              
237             =head2 isExpeditedService()
238              
239             Calls: GeteBayDetails
240             Returned: Conditionally
241              
242             # Returns: 'xs:boolean'
243              
244             =cut
245              
246             sub isExpeditedService {
247             my $self = shift;
248             return $self->{'ExpeditedService'};
249             }
250              
251              
252             =head2 setInternationalService()
253              
254             Indicates whether the shipping service is an international shipping service, i.e.
255             one that ships from to another country from the country of the
256             specified site.

257             Related field: Item.ShippingDetails.InternationalShippingServiceOption in AddItem.
258              
259             # Argument: 'xs:boolean'
260              
261             =cut
262              
263             sub setInternationalService {
264             my $self = shift;
265             $self->{'InternationalService'} = shift
266             }
267              
268             =head2 isInternationalService()
269              
270             Calls: GeteBayDetails
271             Returned: Conditionally
272              
273             # Returns: 'xs:boolean'
274              
275             =cut
276              
277             sub isInternationalService {
278             my $self = shift;
279             return $self->{'InternationalService'};
280             }
281              
282              
283             =head2 setMappedToShippingServiceID()
284              
285             The ID of another shipping service that will be used when a
286             shipping service is deprecated. See also DeprecationDetails.
287              
288             SeeLink: URL: http://developer.ebay.com/DevZone/XML/docs/WebHelp/index.htm?context=eBay_XML_API&topic=DeprecatedShippingServices
289             Title: Deprecated Shipping Services
290              
291             # Argument: 'xs:int'
292              
293             =cut
294              
295             sub setMappedToShippingServiceID {
296             my $self = shift;
297             $self->{'MappedToShippingServiceID'} = shift
298             }
299              
300             =head2 getMappedToShippingServiceID()
301              
302             Calls: GeteBayDetails
303             Returned: Conditionally
304              
305             # Returns: 'xs:int'
306              
307             =cut
308              
309             sub getMappedToShippingServiceID {
310             my $self = shift;
311             return $self->{'MappedToShippingServiceID'};
312             }
313              
314              
315             =head2 setServiceType()
316              
317             The types of shipping that this shipping service supports.
318              
319             # Argument: reference to an array
320             of 'ns:ShippingTypeCodeType'
321              
322             =cut
323              
324             sub setServiceType {
325             my $self = shift;
326             $self->{'ServiceType'} =
327             $self->convertArray_To_RefToArrayIfNeeded(@_);
328             }
329              
330             =head2 getServiceType()
331              
332             Calls: GeteBayDetails
333             Returned: Conditionally
334             OnlyTheseValues: Flat, Calculated
335              
336             # Returns: reference to an array
337             of 'ns:ShippingTypeCodeType'
338              
339             =cut
340              
341             sub getServiceType {
342             my $self = shift;
343             return $self->_getDataTypeArray('ServiceType');
344             }
345              
346              
347             =head2 setShippingCarrier()
348              
349             The kinds of carrier supported by this shipping service.
350              
351             # Argument: reference to an array
352             of 'ns:ShippingCarrierCodeType'
353              
354             =cut
355              
356             sub setShippingCarrier {
357             my $self = shift;
358             $self->{'ShippingCarrier'} =
359             $self->convertArray_To_RefToArrayIfNeeded(@_);
360             }
361              
362             =head2 getShippingCarrier()
363              
364             Calls: GeteBayDetails
365             Returned: Conditionally
366              
367             # Returns: reference to an array
368             of 'ns:ShippingCarrierCodeType'
369              
370             =cut
371              
372             sub getShippingCarrier {
373             my $self = shift;
374             return $self->_getDataTypeArray('ShippingCarrier');
375             }
376              
377              
378             =head2 setShippingPackage()
379              
380             The kinds of packages supported by this shipping service.
381              
382             # Argument: reference to an array
383             of 'ns:ShippingPackageCodeType'
384              
385             =cut
386              
387             sub setShippingPackage {
388             my $self = shift;
389             $self->{'ShippingPackage'} =
390             $self->convertArray_To_RefToArrayIfNeeded(@_);
391             }
392              
393             =head2 getShippingPackage()
394              
395             Calls: GeteBayDetails
396             Returned: Conditionally
397              
398             # Returns: reference to an array
399             of 'ns:ShippingPackageCodeType'
400              
401             =cut
402              
403             sub getShippingPackage {
404             my $self = shift;
405             return $self->_getDataTypeArray('ShippingPackage');
406             }
407              
408              
409             =head2 setShippingService()
410              
411             Value used for the shipping service.
412             For a list of valid values that you can cache for future use, call GeteBayDetails
413             with DetailName set to ShippingServiceDetails.

414             Related fields:
415             Item.ShippingDetails.InternationalShippingServiceOption.ShippingService in AddItem
416             Item.ShippingDetails.ShippingServiceOptions.ShippingService in AddItem
417              
418             # Argument: 'xs:token'
419              
420             =cut
421              
422             sub setShippingService {
423             my $self = shift;
424             $self->{'ShippingService'} = shift
425             }
426              
427             =head2 getShippingService()
428              
429             Calls: GeteBayDetails
430             Returned: Conditionally
431              
432             # Returns: 'xs:token'
433              
434             =cut
435              
436             sub getShippingService {
437             my $self = shift;
438             return $self->{'ShippingService'};
439             }
440              
441              
442             =head2 setShippingServiceCode()
443              
444             For future use.
445              
446             # Argument: 'ns:ShippingServiceCodeType'
447              
448             =cut
449              
450             sub setShippingServiceCode {
451             my $self = shift;
452             $self->{'ShippingServiceCode'} = shift
453             }
454              
455             =head2 getShippingServiceCode()
456              
457             # Returns: 'ns:ShippingServiceCodeType'
458              
459             =cut
460              
461             sub getShippingServiceCode {
462             my $self = shift;
463             return $self->{'ShippingServiceCode'};
464             }
465              
466              
467             =head2 setShippingServiceID()
468              
469             Numeric identifier. A value greater than 50000 represents an
470             international shipping service (confirmed by
471             InternationalShippingService being true). Some applications use this ID
472             to look up shipping services more efficiently.
473             Also useful for applications that have migrated from the legacy XML API.
474              
475             # Argument: 'xs:int'
476              
477             =cut
478              
479             sub setShippingServiceID {
480             my $self = shift;
481             $self->{'ShippingServiceID'} = shift
482             }
483              
484             =head2 getShippingServiceID()
485              
486             Calls: GeteBayDetails
487             Returned: Conditionally
488              
489             # Returns: 'xs:int'
490              
491             =cut
492              
493             sub getShippingServiceID {
494             my $self = shift;
495             return $self->{'ShippingServiceID'};
496             }
497              
498              
499             =head2 setShippingTimeMax()
500              
501             The maximum guaranteed number of days the shipping carrier will
502             take to ship an item (not including the time it takes the
503             seller to deliver the item to the shipping carrier). Always
504             returned when ExpeditedService is true or if defined for a particular service.
505             See Enabling Get It Fast feature.
506              
507             # Argument: 'xs:int'
508              
509             =cut
510              
511             sub setShippingTimeMax {
512             my $self = shift;
513             $self->{'ShippingTimeMax'} = shift
514             }
515              
516             =head2 getShippingTimeMax()
517              
518             Calls: GeteBayDetails
519             Returned: Conditionally
520              
521             # Returns: 'xs:int'
522              
523             =cut
524              
525             sub getShippingTimeMax {
526             my $self = shift;
527             return $self->{'ShippingTimeMax'};
528             }
529              
530              
531             =head2 setShippingTimeMin()
532              
533             The minimum guaranteed number of days the shipping carrier will
534             take to ship an item (not including the time it takes the
535             seller to deliver the item to the shipping carrier). Always
536             returned when ExpeditedService is true or if defined for a
537             particular service.
538             See Enabling Get It Fast feature.
539              
540             # Argument: 'xs:int'
541              
542             =cut
543              
544             sub setShippingTimeMin {
545             my $self = shift;
546             $self->{'ShippingTimeMin'} = shift
547             }
548              
549             =head2 getShippingTimeMin()
550              
551             Calls: GeteBayDetails
552             Returned: Conditionally
553              
554             # Returns: 'xs:int'
555              
556             =cut
557              
558             sub getShippingTimeMin {
559             my $self = shift;
560             return $self->{'ShippingTimeMin'};
561             }
562              
563              
564             =head2 setSurchargeApplicable()
565              
566             True if a surcharge applies for any region that this service ships to.
567              
568             # Argument: 'xs:boolean'
569              
570             =cut
571              
572             sub setSurchargeApplicable {
573             my $self = shift;
574             $self->{'SurchargeApplicable'} = shift
575             }
576              
577             =head2 isSurchargeApplicable()
578              
579             Calls: GeteBayDetails
580             Returned: Conditionally
581              
582             # Returns: 'xs:boolean'
583              
584             =cut
585              
586             sub isSurchargeApplicable {
587             my $self = shift;
588             return $self->{'SurchargeApplicable'};
589             }
590              
591              
592             =head2 setValidForSellingFlow()
593              
594             True if the shipping service is valid for the Sell Your Item flow.
595              
596             # Argument: 'xs:boolean'
597              
598             =cut
599              
600             sub setValidForSellingFlow {
601             my $self = shift;
602             $self->{'ValidForSellingFlow'} = shift
603             }
604              
605             =head2 isValidForSellingFlow()
606              
607             Calls: GeteBayDetails
608             Returned: Conditionally
609              
610             # Returns: 'xs:boolean'
611              
612             =cut
613              
614             sub isValidForSellingFlow {
615             my $self = shift;
616             return $self->{'ValidForSellingFlow'};
617             }
618              
619              
620              
621              
622              
623             ## Attribute and Property lists
624             sub getPropertiesList {
625             my $self = shift;
626             return \@gaProperties;
627             }
628              
629             sub getAttributesList {
630             my $self = shift;
631             return \@gaAttributes;
632             }
633              
634              
635              
636             1;