File Coverage

lib/eBay/API/XML/DataType/SKUArrayType.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::SKUArrayType;
4              
5 1     1   1380 use strict;
  1         3  
  1         39  
6 1     1   6 use warnings;
  1         3  
  1         55  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. SKUArrayType.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::SKUArrayType
21              
22             =head1 DESCRIPTION
23              
24             A list of stock-keeping unit (SKU) identifiers that a seller uses in listings.
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::SKUArrayType inherits from the L class
36              
37             =cut
38              
39 1     1   54 use eBay::API::XML::BaseDataType;
  0            
  0            
40             our @ISA = ("eBay::API::XML::BaseDataType");
41              
42             use eBay::API::XML::DataType::SKUType;
43              
44              
45             my @gaProperties = ( [ 'SKU', 'ns:SKUType', '1'
46             ,'eBay::API::XML::DataType::SKUType', '1' ]
47             );
48             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
49              
50             my @gaAttributes = (
51             );
52             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
53              
54             =head1 Subroutines:
55              
56             =cut
57              
58             sub new {
59             my $classname = shift;
60             my %args = @_;
61             my $self = $classname->SUPER::new(%args);
62             return $self;
63             }
64              
65             sub isScalar {
66             return 0;
67             }
68              
69              
70              
71             =head2 setSKU()
72              
73             Identifier defined and used by a seller to identify an item. The
74             seller can use a SKU to identify one item or use the same SKU for
75             multiple items. Preferable to ApplicationData for SKUs and inventory
76             tracking. Different sellers can use the same SKUs. This element can
77             be used by sellers to track complex flows of products and
78             information. This element preserves a SKU, enabling a seller to
79             obtain it before and after a transaction is created.
80              
81             MaxLength: 50
82              
83             Calls: GetSellerTransactions
84             GetSellerList
85             RequiredInput: No
86              
87             # Argument: reference to an array
88             of 'ns:SKUType'
89              
90             =cut
91              
92             sub setSKU {
93             my $self = shift;
94             $self->{'SKU'} =
95             $self->convertArray_To_RefToArrayIfNeeded(@_);
96             }
97              
98             =head2 getSKU()
99              
100             # Returns: reference to an array
101             of 'ns:SKUType'
102              
103             =cut
104              
105             sub getSKU {
106             my $self = shift;
107             return $self->_getDataTypeArray('SKU');
108             }
109              
110              
111              
112              
113              
114             ## Attribute and Property lists
115             sub getPropertiesList {
116             my $self = shift;
117             return \@gaProperties;
118             }
119              
120             sub getAttributesList {
121             my $self = shift;
122             return \@gaAttributes;
123             }
124              
125              
126              
127             1;