File Coverage

lib/eBay/API/XML/DataType/AccountEntriesType.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::AccountEntriesType;
4              
5 1     1   1336 use strict;
  1         3  
  1         38  
6 1     1   6 use warnings;
  1         2  
  1         35  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. AccountEntriesType.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::AccountEntriesType
21              
22             =head1 DESCRIPTION
23              
24             Collection of zero, one, or multiple individual detail account entries. Contains
25             one AccountEntry object for each account entry returned. See the schema
26             documentation for AccountEntryType for details on its properties. You can uniquely identify
27             the entries that the GetAccount call returns within the AccountEntries tag.
28             Specifically, the following fields, returned within the AccountEntries tag,
29             can be used in combination as a unique key: AccountEntry.Date, AccountEntry.AccountDetailsEntryType,
30             AccountEntry.ItemID, and AccountEntry.RefNumber.
31              
32              
33              
34             =head1 SYNOPSIS
35              
36             =cut
37              
38              
39             =head1 INHERITANCE
40              
41             eBay::API::XML::DataType::AccountEntriesType inherits from the L class
42              
43             =cut
44              
45 1     1   57 use eBay::API::XML::BaseDataType;
  0            
  0            
46             our @ISA = ("eBay::API::XML::BaseDataType");
47              
48             use eBay::API::XML::DataType::AccountEntryType;
49              
50              
51             my @gaProperties = ( [ 'AccountEntry', 'ns:AccountEntryType', '1'
52             ,'eBay::API::XML::DataType::AccountEntryType', '1' ]
53             );
54             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
55              
56             my @gaAttributes = (
57             );
58             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
59              
60             =head1 Subroutines:
61              
62             =cut
63              
64             sub new {
65             my $classname = shift;
66             my %args = @_;
67             my $self = $classname->SUPER::new(%args);
68             return $self;
69             }
70              
71             sub isScalar {
72             return 0;
73             }
74              
75              
76              
77             =head2 setAccountEntry()
78              
79             Contains the data for one account entry. (See the schema
80             documentation for AccountEntryType for details on its properties.)
81              
82             # Argument: reference to an array
83             of 'ns:AccountEntryType'
84              
85             =cut
86              
87             sub setAccountEntry {
88             my $self = shift;
89             $self->{'AccountEntry'} =
90             $self->convertArray_To_RefToArrayIfNeeded(@_);
91             }
92              
93             =head2 getAccountEntry()
94              
95             Calls: GetAccount
96             Returned: Conditionally
97              
98             # Returns: reference to an array
99             of 'ns:AccountEntryType'
100              
101             =cut
102              
103             sub getAccountEntry {
104             my $self = shift;
105             return $self->_getDataTypeArray('AccountEntry');
106             }
107              
108              
109              
110              
111              
112             ## Attribute and Property lists
113             sub getPropertiesList {
114             my $self = shift;
115             return \@gaProperties;
116             }
117              
118             sub getAttributesList {
119             my $self = shift;
120             return \@gaAttributes;
121             }
122              
123              
124              
125             1;