File Coverage

lib/eBay/API/XML/DataType/SafePaymentRequiredDefinitionType.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::SafePaymentRequiredDefinitionType;
4              
5 1     1   1154 use strict;
  1         2  
  1         28  
6 1     1   4 use warnings;
  1         2  
  1         34  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. SafePaymentRequiredDefinitionType.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::SafePaymentRequiredDefinitionType
21              
22             =head1 DESCRIPTION
23              
24             For the US, Canada and Australia sites, users registered after January 17,2007 are
25             required to offer at least one safe payment method (i.e. PayPal/PaisaPay, or one
26             of the credit cards specified in Item.PaymentMethods).
27            
28             If a seller has a 'SafePaymentExempt' status, they are exempt from the category
29             requirement to offer at least one safe payment method when listing an item on a
30             site that has the safe payment requirement.
31            
32             The safe payment requirement also applies to two-category listings that have one
33             ship-to or available-to location in the US, Canada, or Australia. The French
34             Canadian (CAFR) site is a special case, because listings on the CAFR site with
35             ship-to or available-to locations in Canada do not require a Safe Payment method,
36             yet listings on the CAFR site with ship-to or available-to locations in the US or
37             Australia do require a safe payment method.
38            
39             The Business and Industrial, Motors, Real Estate, and Mature Audiences categories,
40             and all listings that don't support Item.PaymentMethods are exempt from this
41             requirement. Therefore, listings in those categories do not require a safe payment
42             method.
43            
44             Currently, this field contains no other special meta-data.(An empty element is
45             returned.)
46            
47             Use SiteDefaults.SafePaymentRequired and Category.SafePaymentRequired to determine
48             which categories require a safe payment method.
49              
50              
51              
52             =head1 SYNOPSIS
53              
54             =cut
55              
56              
57             =head1 INHERITANCE
58              
59             eBay::API::XML::DataType::SafePaymentRequiredDefinitionType inherits from the L class
60              
61             =cut
62              
63 1     1   36 use eBay::API::XML::BaseDataType;
  0            
  0            
64             our @ISA = ("eBay::API::XML::BaseDataType");
65              
66              
67              
68             my @gaProperties = (
69             );
70             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
71              
72             my @gaAttributes = (
73             );
74             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
75              
76             =head1 Subroutines:
77              
78             =cut
79              
80             sub new {
81             my $classname = shift;
82             my %args = @_;
83             my $self = $classname->SUPER::new(%args);
84             return $self;
85             }
86              
87             sub isScalar {
88             return 0;
89             }
90              
91              
92              
93              
94              
95              
96             ## Attribute and Property lists
97             sub getPropertiesList {
98             my $self = shift;
99             return \@gaProperties;
100             }
101              
102             sub getAttributesList {
103             my $self = shift;
104             return \@gaAttributes;
105             }
106              
107              
108              
109             1;