File Coverage

lib/eBay/API/XML/DataType/CharitySellerType.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::CharitySellerType;
4              
5 1     1   1585 use strict;
  1         3  
  1         85  
6 1     1   7 use warnings;
  1         2  
  1         59  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. CharitySellerType.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::CharitySellerType
21              
22             =head1 DESCRIPTION
23              
24             Contains information about one seller with a eBay Giving Works provider
25             charity seller account.
26              
27              
28              
29             =head1 SYNOPSIS
30              
31             =cut
32              
33              
34             =head1 INHERITANCE
35              
36             eBay::API::XML::DataType::CharitySellerType inherits from the L class
37              
38             =cut
39              
40 1     1   44 use eBay::API::XML::BaseDataType;
  0            
  0            
41             our @ISA = ("eBay::API::XML::BaseDataType");
42              
43             use eBay::API::XML::DataType::CharityAffiliationType;
44             use eBay::API::XML::DataType::Enum::CharitySellerStatusCodeType;
45              
46              
47             my @gaProperties = ( [ 'CharityAffiliation', 'ns:CharityAffiliationType', '1'
48             ,'eBay::API::XML::DataType::CharityAffiliationType', '1' ]
49             , [ 'CharitySellerStatus', 'ns:CharitySellerStatusCodeType', ''
50             ,'eBay::API::XML::DataType::Enum::CharitySellerStatusCodeType', '' ]
51             , [ 'TermsAndConditionsAccepted', 'xs:boolean', '', '', '' ]
52             );
53             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
54              
55             my @gaAttributes = (
56             );
57             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
58              
59             =head1 Subroutines:
60              
61             =cut
62              
63             sub new {
64             my $classname = shift;
65             my %args = @_;
66             my $self = $classname->SUPER::new(%args);
67             return $self;
68             }
69              
70             sub isScalar {
71             return 0;
72             }
73              
74              
75              
76             =head2 setCharityAffiliation()
77              
78             Indicates the affiliation status for nonprofit charity organizations registered with the dedicated eBay Giving Works provider.
79              
80             # Argument: reference to an array
81             of 'ns:CharityAffiliationType'
82              
83             =cut
84              
85             sub setCharityAffiliation {
86             my $self = shift;
87             $self->{'CharityAffiliation'} =
88             $self->convertArray_To_RefToArrayIfNeeded(@_);
89             }
90              
91             =head2 getCharityAffiliation()
92              
93             # Returns: reference to an array
94             of 'ns:CharityAffiliationType'
95              
96             =cut
97              
98             sub getCharityAffiliation {
99             my $self = shift;
100             return $self->_getDataTypeArray('CharityAffiliation');
101             }
102              
103              
104             =head2 setCharitySellerStatus()
105              
106             Indicates the status of the seller's charity seller account.
107              
108             # Argument: 'ns:CharitySellerStatusCodeType'
109              
110             =cut
111              
112             sub setCharitySellerStatus {
113             my $self = shift;
114             $self->{'CharitySellerStatus'} = shift
115             }
116              
117             =head2 getCharitySellerStatus()
118              
119             Calls: GetUser
120             Returned: Conditionally
121             Details: DetailLevel: none, ReturnSummary, ReturnAll
122              
123             # Returns: 'ns:CharitySellerStatusCodeType'
124              
125             =cut
126              
127             sub getCharitySellerStatus {
128             my $self = shift;
129             return $self->{'CharitySellerStatus'};
130             }
131              
132              
133             =head2 setTermsAndConditionsAccepted()
134              
135             Indicates if the seller has accepted eBay GivingWorks Terms and Conditions.
136              
137             # Argument: 'xs:boolean'
138              
139             =cut
140              
141             sub setTermsAndConditionsAccepted {
142             my $self = shift;
143             $self->{'TermsAndConditionsAccepted'} = shift
144             }
145              
146             =head2 isTermsAndConditionsAccepted()
147              
148             Calls: GetUser
149             Returned: Conditionally
150             Details: DetailLevel: none, ReturnSummary, ReturnAll
151              
152             # Returns: 'xs:boolean'
153              
154             =cut
155              
156             sub isTermsAndConditionsAccepted {
157             my $self = shift;
158             return $self->{'TermsAndConditionsAccepted'};
159             }
160              
161              
162              
163              
164              
165             ## Attribute and Property lists
166             sub getPropertiesList {
167             my $self = shift;
168             return \@gaProperties;
169             }
170              
171             sub getAttributesList {
172             my $self = shift;
173             return \@gaAttributes;
174             }
175              
176              
177              
178             1;