File Coverage

lib/eBay/API/XML/DataType/BuyerProtectionDetailsType.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::BuyerProtectionDetailsType;
4              
5 1     1   1142 use strict;
  1         2  
  1         24  
6 1     1   10 use warnings;
  1         2  
  1         30  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. BuyerProtectionDetailsType.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::BuyerProtectionDetailsType
21              
22             =head1 DESCRIPTION
23              
24             Contains the data for different buyer protection schemes and the various status associated with each one of them.
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::BuyerProtectionDetailsType inherits from the L class
36              
37             =cut
38              
39 1     1   42 use eBay::API::XML::BaseDataType;
  0            
  0            
40             our @ISA = ("eBay::API::XML::BaseDataType");
41              
42             use eBay::API::XML::DataType::Enum::BuyerProtectionCodeType;
43             use eBay::API::XML::DataType::Enum::BuyerProtectionSourceCodeType;
44              
45              
46             my @gaProperties = ( [ 'BuyerProtectionSource', 'ns:BuyerProtectionSourceCodeType', ''
47             ,'eBay::API::XML::DataType::Enum::BuyerProtectionSourceCodeType', '' ]
48             , [ 'BuyerProtectionStatus', 'ns:BuyerProtectionCodeType', ''
49             ,'eBay::API::XML::DataType::Enum::BuyerProtectionCodeType', '' ]
50             );
51             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
52              
53             my @gaAttributes = (
54             );
55             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
56              
57             =head1 Subroutines:
58              
59             =cut
60              
61             sub new {
62             my $classname = shift;
63             my %args = @_;
64             my $self = $classname->SUPER::new(%args);
65             return $self;
66             }
67              
68             sub isScalar {
69             return 0;
70             }
71              
72              
73              
74             =head2 setBuyerProtectionSource()
75              
76             Indicates the type of Buyer Protection applicable for a particular item, such as
77             eBay for the eBay Standard Purchase Protection Program or PayPal for the PayPal
78             Protection Program.
79              
80             # Argument: 'ns:BuyerProtectionSourceCodeType'
81              
82             =cut
83              
84             sub setBuyerProtectionSource {
85             my $self = shift;
86             $self->{'BuyerProtectionSource'} = shift
87             }
88              
89             =head2 getBuyerProtectionSource()
90              
91             Calls: GetItemTransactions
92             Returned: Conditionally
93              
94             Calls: GetOrderTransactions
95             Returned: Conditionally
96              
97             Calls: GetSellerTransactions
98             Returned: Conditionally
99              
100             Calls: GetItem
101             Returned: Conditionally
102              
103             Calls: GetSearchResults
104             Returned: Conditionally
105              
106             # Returns: 'ns:BuyerProtectionSourceCodeType'
107              
108             =cut
109              
110             sub getBuyerProtectionSource {
111             my $self = shift;
112             return $self->{'BuyerProtectionSource'};
113             }
114              
115              
116             =head2 setBuyerProtectionStatus()
117              
118             Indicates the status of the item's eligibility for a Buyer Protection Program.
119              
120             # Argument: 'ns:BuyerProtectionCodeType'
121              
122             =cut
123              
124             sub setBuyerProtectionStatus {
125             my $self = shift;
126             $self->{'BuyerProtectionStatus'} = shift
127             }
128              
129             =head2 getBuyerProtectionStatus()
130              
131             Calls: GetItemTransactions
132             Returned: Conditionally
133              
134             Calls: GetOrderTransactions
135             Returned: Conditionally
136              
137             Calls: GetSellerTransactions
138             Returned: Conditionally
139              
140             Calls: GetItem
141             Returned: Conditionally
142              
143             Calls: GetSearchResults
144             Returned: Conditionally
145              
146             # Returns: 'ns:BuyerProtectionCodeType'
147              
148             =cut
149              
150             sub getBuyerProtectionStatus {
151             my $self = shift;
152             return $self->{'BuyerProtectionStatus'};
153             }
154              
155              
156              
157              
158              
159             ## Attribute and Property lists
160             sub getPropertiesList {
161             my $self = shift;
162             return \@gaProperties;
163             }
164              
165             sub getAttributesList {
166             my $self = shift;
167             return \@gaAttributes;
168             }
169              
170              
171              
172             1;