File Coverage

lib/eBay/API/XML/DataType/WantItNowPostArrayType.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::WantItNowPostArrayType;
4              
5 1     1   1309 use strict;
  1         1  
  1         25  
6 1     1   4 use warnings;
  1         2  
  1         26  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. WantItNowPostArrayType.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::WantItNowPostArrayType
21              
22             =head1 DESCRIPTION
23              
24             Container for a list of search result items. Can contain zero, one, or multiple
25             WantItNowPostType objects, each of which contains data for a single Want It Now
26             post found by the search.
27              
28              
29              
30             =head1 SYNOPSIS
31              
32             =cut
33              
34              
35             =head1 INHERITANCE
36              
37             eBay::API::XML::DataType::WantItNowPostArrayType inherits from the L class
38              
39             =cut
40              
41 1     1   33 use eBay::API::XML::BaseDataType;
  0            
  0            
42             our @ISA = ("eBay::API::XML::BaseDataType");
43              
44             use eBay::API::XML::DataType::WantItNowPostType;
45              
46              
47             my @gaProperties = ( [ 'WantItNowPost', 'ns:WantItNowPostType', '1'
48             ,'eBay::API::XML::DataType::WantItNowPostType', '1' ]
49             );
50             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
51              
52             my @gaAttributes = (
53             );
54             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
55              
56             =head1 Subroutines:
57              
58             =cut
59              
60             sub new {
61             my $classname = shift;
62             my %args = @_;
63             my $self = $classname->SUPER::new(%args);
64             return $self;
65             }
66              
67             sub isScalar {
68             return 0;
69             }
70              
71              
72              
73             =head2 setWantItNowPost()
74              
75             Contains data for a Want It Now post found by a search.
76              
77             # Argument: reference to an array
78             of 'ns:WantItNowPostType'
79              
80             =cut
81              
82             sub setWantItNowPost {
83             my $self = shift;
84             $self->{'WantItNowPost'} =
85             $self->convertArray_To_RefToArrayIfNeeded(@_);
86             }
87              
88             =head2 getWantItNowPost()
89              
90             Calls: GetWantItNowSearchResults
91             Returned: Conditionally
92              
93             # Returns: reference to an array
94             of 'ns:WantItNowPostType'
95              
96             =cut
97              
98             sub getWantItNowPost {
99             my $self = shift;
100             return $self->_getDataTypeArray('WantItNowPost');
101             }
102              
103              
104              
105              
106              
107             ## Attribute and Property lists
108             sub getPropertiesList {
109             my $self = shift;
110             return \@gaProperties;
111             }
112              
113             sub getAttributesList {
114             my $self = shift;
115             return \@gaAttributes;
116             }
117              
118              
119              
120             1;