File Coverage

lib/eBay/API/XML/DataType/ShipmentType.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::ShipmentType;
4              
5 1     1   1274 use strict;
  1         2  
  1         34  
6 1     1   6 use warnings;
  1         3  
  1         32  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. ShipmentType.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::ShipmentType
21              
22             =head1 DESCRIPTION
23              
24              
25              
26             =head1 SYNOPSIS
27              
28             =cut
29              
30              
31             =head1 INHERITANCE
32              
33             eBay::API::XML::DataType::ShipmentType inherits from the L class
34              
35             =cut
36              
37 1     1   41 use eBay::API::XML::BaseDataType;
  0            
  0            
38             our @ISA = ("eBay::API::XML::BaseDataType");
39              
40             use eBay::API::XML::DataType::AddressType;
41             use eBay::API::XML::DataType::AmountType;
42             use eBay::API::XML::DataType::ItemTransactionIDType;
43             use eBay::API::XML::DataType::MeasureType;
44             use eBay::API::XML::DataType::Enum::ShipmentDeliveryStatusCodeType;
45             use eBay::API::XML::DataType::Enum::ShipmentStatusCodeType;
46             use eBay::API::XML::DataType::Enum::ShippingCarrierCodeType;
47             use eBay::API::XML::DataType::Enum::ShippingFeatureCodeType;
48             use eBay::API::XML::DataType::Enum::ShippingPackageCodeType;
49              
50              
51             my @gaProperties = ( [ 'DeliveryDate', 'xs:dateTime', '', '', '' ]
52             , [ 'DeliveryStatus', 'ns:ShipmentDeliveryStatusCodeType', ''
53             ,'eBay::API::XML::DataType::Enum::ShipmentDeliveryStatusCodeType', '' ]
54             , [ 'EstimatedDeliveryDate', 'xs:dateTime', '', '', '' ]
55             , [ 'InsuredValue', 'ns:AmountType', ''
56             ,'eBay::API::XML::DataType::AmountType', '1' ]
57             , [ 'ItemTransactionID', 'ns:ItemTransactionIDType', '1'
58             ,'eBay::API::XML::DataType::ItemTransactionIDType', '1' ]
59             , [ 'PackageDepth', 'ns:MeasureType', ''
60             ,'eBay::API::XML::DataType::MeasureType', '1' ]
61             , [ 'PackageLength', 'ns:MeasureType', ''
62             ,'eBay::API::XML::DataType::MeasureType', '1' ]
63             , [ 'PackageWidth', 'ns:MeasureType', ''
64             ,'eBay::API::XML::DataType::MeasureType', '1' ]
65             , [ 'PayPalShipmentID', 'xs:string', '', '', '' ]
66             , [ 'PostageTotal', 'ns:AmountType', ''
67             ,'eBay::API::XML::DataType::AmountType', '1' ]
68             , [ 'PrintedTime', 'xs:dateTime', '', '', '' ]
69             , [ 'RefundGrantedTime', 'xs:dateTime', '', '', '' ]
70             , [ 'RefundRequestedTime', 'xs:dateTime', '', '', '' ]
71             , [ 'ShipFromAddress', 'ns:AddressType', ''
72             ,'eBay::API::XML::DataType::AddressType', '1' ]
73             , [ 'ShipmentID', 'xs:long', '', '', '' ]
74             , [ 'ShipmentTrackingNumber', 'xs:string', '', '', '' ]
75             , [ 'ShippingAddress', 'ns:AddressType', ''
76             ,'eBay::API::XML::DataType::AddressType', '1' ]
77             , [ 'ShippingCarrierUsed', 'ns:ShippingCarrierCodeType', ''
78             ,'eBay::API::XML::DataType::Enum::ShippingCarrierCodeType', '' ]
79             , [ 'ShippingFeature', 'ns:ShippingFeatureCodeType', '1'
80             ,'eBay::API::XML::DataType::Enum::ShippingFeatureCodeType', '' ]
81             , [ 'ShippingPackage', 'ns:ShippingPackageCodeType', ''
82             ,'eBay::API::XML::DataType::Enum::ShippingPackageCodeType', '' ]
83             , [ 'ShippingServiceUsed', 'xs:token', '', '', '' ]
84             , [ 'Status', 'ns:ShipmentStatusCodeType', ''
85             ,'eBay::API::XML::DataType::Enum::ShipmentStatusCodeType', '' ]
86             , [ 'WeightMajor', 'ns:MeasureType', ''
87             ,'eBay::API::XML::DataType::MeasureType', '1' ]
88             , [ 'WeightMinor', 'ns:MeasureType', ''
89             ,'eBay::API::XML::DataType::MeasureType', '1' ]
90             );
91             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
92              
93             my @gaAttributes = (
94             );
95             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
96              
97             =head1 Subroutines:
98              
99             =cut
100              
101             sub new {
102             my $classname = shift;
103             my %args = @_;
104             my $self = $classname->SUPER::new(%args);
105             return $self;
106             }
107              
108             sub isScalar {
109             return 0;
110             }
111              
112              
113              
114             =head2 setDeliveryDate()
115              
116             Revise only
117              
118             # Argument: 'xs:dateTime'
119              
120             =cut
121              
122             sub setDeliveryDate {
123             my $self = shift;
124             $self->{'DeliveryDate'} = shift
125             }
126              
127             =head2 getDeliveryDate()
128              
129             # Returns: 'xs:dateTime'
130              
131             =cut
132              
133             sub getDeliveryDate {
134             my $self = shift;
135             return $self->{'DeliveryDate'};
136             }
137              
138              
139             =head2 setDeliveryStatus()
140              
141             Revise only
142              
143             # Argument: 'ns:ShipmentDeliveryStatusCodeType'
144              
145             =cut
146              
147             sub setDeliveryStatus {
148             my $self = shift;
149             $self->{'DeliveryStatus'} = shift
150             }
151              
152             =head2 getDeliveryStatus()
153              
154             # Returns: 'ns:ShipmentDeliveryStatusCodeType'
155              
156             =cut
157              
158             sub getDeliveryStatus {
159             my $self = shift;
160             return $self->{'DeliveryStatus'};
161             }
162              
163              
164             =head2 setEstimatedDeliveryDate()
165              
166             # Argument: 'xs:dateTime'
167              
168             =cut
169              
170             sub setEstimatedDeliveryDate {
171             my $self = shift;
172             $self->{'EstimatedDeliveryDate'} = shift
173             }
174              
175             =head2 getEstimatedDeliveryDate()
176              
177             # Returns: 'xs:dateTime'
178              
179             =cut
180              
181             sub getEstimatedDeliveryDate {
182             my $self = shift;
183             return $self->{'EstimatedDeliveryDate'};
184             }
185              
186              
187             =head2 setInsuredValue()
188              
189             # Argument: 'ns:AmountType'
190              
191             =cut
192              
193             sub setInsuredValue {
194             my $self = shift;
195             $self->{'InsuredValue'} = shift
196             }
197              
198             =head2 getInsuredValue()
199              
200             # Returns: 'ns:AmountType'
201              
202             =cut
203              
204             sub getInsuredValue {
205             my $self = shift;
206             return $self->_getDataTypeInstance( 'InsuredValue'
207             ,'eBay::API::XML::DataType::AmountType');
208             }
209              
210              
211             =head2 setItemTransactionID()
212              
213             # Argument: reference to an array
214             of 'ns:ItemTransactionIDType'
215              
216             =cut
217              
218             sub setItemTransactionID {
219             my $self = shift;
220             $self->{'ItemTransactionID'} =
221             $self->convertArray_To_RefToArrayIfNeeded(@_);
222             }
223              
224             =head2 getItemTransactionID()
225              
226             # Returns: reference to an array
227             of 'ns:ItemTransactionIDType'
228              
229             =cut
230              
231             sub getItemTransactionID {
232             my $self = shift;
233             return $self->_getDataTypeArray('ItemTransactionID');
234             }
235              
236              
237             =head2 setPackageDepth()
238              
239             Depth dimension of the package needed to ship the item after it is sold.
240             For calculated shipping only.
241              
242             # Argument: 'ns:MeasureType'
243              
244             =cut
245              
246             sub setPackageDepth {
247             my $self = shift;
248             $self->{'PackageDepth'} = shift
249             }
250              
251             =head2 getPackageDepth()
252              
253             # Returns: 'ns:MeasureType'
254              
255             =cut
256              
257             sub getPackageDepth {
258             my $self = shift;
259             return $self->_getDataTypeInstance( 'PackageDepth'
260             ,'eBay::API::XML::DataType::MeasureType');
261             }
262              
263              
264             =head2 setPackageLength()
265              
266             Length dimension of the package needed to ship the item after it is sold.
267             For calculated shipping only.
268              
269             # Argument: 'ns:MeasureType'
270              
271             =cut
272              
273             sub setPackageLength {
274             my $self = shift;
275             $self->{'PackageLength'} = shift
276             }
277              
278             =head2 getPackageLength()
279              
280             # Returns: 'ns:MeasureType'
281              
282             =cut
283              
284             sub getPackageLength {
285             my $self = shift;
286             return $self->_getDataTypeInstance( 'PackageLength'
287             ,'eBay::API::XML::DataType::MeasureType');
288             }
289              
290              
291             =head2 setPackageWidth()
292              
293             Width dimension of the package needed to ship the item after it is sold.
294             For calculated shipping only.
295              
296             # Argument: 'ns:MeasureType'
297              
298             =cut
299              
300             sub setPackageWidth {
301             my $self = shift;
302             $self->{'PackageWidth'} = shift
303             }
304              
305             =head2 getPackageWidth()
306              
307             # Returns: 'ns:MeasureType'
308              
309             =cut
310              
311             sub getPackageWidth {
312             my $self = shift;
313             return $self->_getDataTypeInstance( 'PackageWidth'
314             ,'eBay::API::XML::DataType::MeasureType');
315             }
316              
317              
318             =head2 setPayPalShipmentID()
319              
320             # Argument: 'xs:string'
321              
322             =cut
323              
324             sub setPayPalShipmentID {
325             my $self = shift;
326             $self->{'PayPalShipmentID'} = shift
327             }
328              
329             =head2 getPayPalShipmentID()
330              
331             # Returns: 'xs:string'
332              
333             =cut
334              
335             sub getPayPalShipmentID {
336             my $self = shift;
337             return $self->{'PayPalShipmentID'};
338             }
339              
340              
341             =head2 setPostageTotal()
342              
343             # Argument: 'ns:AmountType'
344              
345             =cut
346              
347             sub setPostageTotal {
348             my $self = shift;
349             $self->{'PostageTotal'} = shift
350             }
351              
352             =head2 getPostageTotal()
353              
354             # Returns: 'ns:AmountType'
355              
356             =cut
357              
358             sub getPostageTotal {
359             my $self = shift;
360             return $self->_getDataTypeInstance( 'PostageTotal'
361             ,'eBay::API::XML::DataType::AmountType');
362             }
363              
364              
365             =head2 setPrintedTime()
366              
367             # Argument: 'xs:dateTime'
368              
369             =cut
370              
371             sub setPrintedTime {
372             my $self = shift;
373             $self->{'PrintedTime'} = shift
374             }
375              
376             =head2 getPrintedTime()
377              
378             # Returns: 'xs:dateTime'
379              
380             =cut
381              
382             sub getPrintedTime {
383             my $self = shift;
384             return $self->{'PrintedTime'};
385             }
386              
387              
388             =head2 setRefundGrantedTime()
389              
390             Revise only
391              
392             # Argument: 'xs:dateTime'
393              
394             =cut
395              
396             sub setRefundGrantedTime {
397             my $self = shift;
398             $self->{'RefundGrantedTime'} = shift
399             }
400              
401             =head2 getRefundGrantedTime()
402              
403             # Returns: 'xs:dateTime'
404              
405             =cut
406              
407             sub getRefundGrantedTime {
408             my $self = shift;
409             return $self->{'RefundGrantedTime'};
410             }
411              
412              
413             =head2 setRefundRequestedTime()
414              
415             Revise only
416              
417             # Argument: 'xs:dateTime'
418              
419             =cut
420              
421             sub setRefundRequestedTime {
422             my $self = shift;
423             $self->{'RefundRequestedTime'} = shift
424             }
425              
426             =head2 getRefundRequestedTime()
427              
428             # Returns: 'xs:dateTime'
429              
430             =cut
431              
432             sub getRefundRequestedTime {
433             my $self = shift;
434             return $self->{'RefundRequestedTime'};
435             }
436              
437              
438             =head2 setShipFromAddress()
439              
440             The address from which the item is being shipped.
441              
442             # Argument: 'ns:AddressType'
443              
444             =cut
445              
446             sub setShipFromAddress {
447             my $self = shift;
448             $self->{'ShipFromAddress'} = shift
449             }
450              
451             =head2 getShipFromAddress()
452              
453             # Returns: 'ns:AddressType'
454              
455             =cut
456              
457             sub getShipFromAddress {
458             my $self = shift;
459             return $self->_getDataTypeInstance( 'ShipFromAddress'
460             ,'eBay::API::XML::DataType::AddressType');
461             }
462              
463              
464             =head2 setShipmentID()
465              
466             # Argument: 'xs:long'
467              
468             =cut
469              
470             sub setShipmentID {
471             my $self = shift;
472             $self->{'ShipmentID'} = shift
473             }
474              
475             =head2 getShipmentID()
476              
477             # Returns: 'xs:long'
478              
479             =cut
480              
481             sub getShipmentID {
482             my $self = shift;
483             return $self->{'ShipmentID'};
484             }
485              
486              
487             =head2 setShipmentTrackingNumber()
488              
489             The tracking number associated with the shipment. The format of the shipment
490             tracking number must be consistent with the specified ShippingCarrierUsed.
491              
492             Calls: CompleteSale
493             RequiredInput: No
494              
495             # Argument: 'xs:string'
496              
497             =cut
498              
499             sub setShipmentTrackingNumber {
500             my $self = shift;
501             $self->{'ShipmentTrackingNumber'} = shift
502             }
503              
504             =head2 getShipmentTrackingNumber()
505              
506             # Returns: 'xs:string'
507              
508             =cut
509              
510             sub getShipmentTrackingNumber {
511             my $self = shift;
512             return $self->{'ShipmentTrackingNumber'};
513             }
514              
515              
516             =head2 setShippingAddress()
517              
518             The address to which the item is to be shipped.
519              
520             # Argument: 'ns:AddressType'
521              
522             =cut
523              
524             sub setShippingAddress {
525             my $self = shift;
526             $self->{'ShippingAddress'} = shift
527             }
528              
529             =head2 getShippingAddress()
530              
531             # Returns: 'ns:AddressType'
532              
533             =cut
534              
535             sub getShippingAddress {
536             my $self = shift;
537             return $self->_getDataTypeInstance( 'ShippingAddress'
538             ,'eBay::API::XML::DataType::AddressType');
539             }
540              
541              
542             =head2 setShippingCarrierUsed()
543              
544             The shipping carrier used.
545              
546             Calls: CompleteSale
547             RequiredInput: No
548             OnlyTheseValues: USPS, UPS
549              
550             # Argument: 'ns:ShippingCarrierCodeType'
551              
552             =cut
553              
554             sub setShippingCarrierUsed {
555             my $self = shift;
556             $self->{'ShippingCarrierUsed'} = shift
557             }
558              
559             =head2 getShippingCarrierUsed()
560              
561             # Returns: 'ns:ShippingCarrierCodeType'
562              
563             =cut
564              
565             sub getShippingCarrierUsed {
566             my $self = shift;
567             return $self->{'ShippingCarrierUsed'};
568             }
569              
570              
571             =head2 setShippingFeature()
572              
573             # Argument: reference to an array
574             of 'ns:ShippingFeatureCodeType'
575              
576             =cut
577              
578             sub setShippingFeature {
579             my $self = shift;
580             $self->{'ShippingFeature'} =
581             $self->convertArray_To_RefToArrayIfNeeded(@_);
582             }
583              
584             =head2 getShippingFeature()
585              
586             # Returns: reference to an array
587             of 'ns:ShippingFeatureCodeType'
588              
589             =cut
590              
591             sub getShippingFeature {
592             my $self = shift;
593             return $self->_getDataTypeArray('ShippingFeature');
594             }
595              
596              
597             =head2 setShippingPackage()
598              
599             The size of the package used to ship the item(s). See ShippingPackageCodeType
600             for its possible values. Input.
601              
602             # Argument: 'ns:ShippingPackageCodeType'
603              
604             =cut
605              
606             sub setShippingPackage {
607             my $self = shift;
608             $self->{'ShippingPackage'} = shift
609             }
610              
611             =head2 getShippingPackage()
612              
613             # Returns: 'ns:ShippingPackageCodeType'
614              
615             =cut
616              
617             sub getShippingPackage {
618             my $self = shift;
619             return $self->{'ShippingPackage'};
620             }
621              
622              
623             =head2 setShippingServiceUsed()
624              
625             The size of the package used to ship the item(s). See ShippingPackageCodeType
626             for its possible values. Input.
627              
628             # Argument: 'xs:token'
629              
630             =cut
631              
632             sub setShippingServiceUsed {
633             my $self = shift;
634             $self->{'ShippingServiceUsed'} = shift
635             }
636              
637             =head2 getShippingServiceUsed()
638              
639             # Returns: 'xs:token'
640              
641             =cut
642              
643             sub getShippingServiceUsed {
644             my $self = shift;
645             return $self->{'ShippingServiceUsed'};
646             }
647              
648              
649             =head2 setStatus()
650              
651             Status, for revise only
652              
653             # Argument: 'ns:ShipmentStatusCodeType'
654              
655             =cut
656              
657             sub setStatus {
658             my $self = shift;
659             $self->{'Status'} = shift
660             }
661              
662             =head2 getStatus()
663              
664             # Returns: 'ns:ShipmentStatusCodeType'
665              
666             =cut
667              
668             sub getStatus {
669             my $self = shift;
670             return $self->{'Status'};
671             }
672              
673              
674             =head2 setWeightMajor()
675              
676             See the documentation regarding "Working with Item Weights".
677             The 'unit' attribute can have a value of lbs.
678              
679             # Argument: 'ns:MeasureType'
680              
681             =cut
682              
683             sub setWeightMajor {
684             my $self = shift;
685             $self->{'WeightMajor'} = shift
686             }
687              
688             =head2 getWeightMajor()
689              
690             # Returns: 'ns:MeasureType'
691              
692             =cut
693              
694             sub getWeightMajor {
695             my $self = shift;
696             return $self->_getDataTypeInstance( 'WeightMajor'
697             ,'eBay::API::XML::DataType::MeasureType');
698             }
699              
700              
701             =head2 setWeightMinor()
702              
703             See the documentation regarding "Working with Item Weights".
704             The 'unit' attribute is optional and assumed to be the
705             minor compared to the value of 'unit' in WeightMajor.
706              
707             # Argument: 'ns:MeasureType'
708              
709             =cut
710              
711             sub setWeightMinor {
712             my $self = shift;
713             $self->{'WeightMinor'} = shift
714             }
715              
716             =head2 getWeightMinor()
717              
718             # Returns: 'ns:MeasureType'
719              
720             =cut
721              
722             sub getWeightMinor {
723             my $self = shift;
724             return $self->_getDataTypeInstance( 'WeightMinor'
725             ,'eBay::API::XML::DataType::MeasureType');
726             }
727              
728              
729              
730              
731              
732             ## Attribute and Property lists
733             sub getPropertiesList {
734             my $self = shift;
735             return \@gaProperties;
736             }
737              
738             sub getAttributesList {
739             my $self = shift;
740             return \@gaAttributes;
741             }
742              
743              
744              
745             1;