File Coverage

lib/eBay/API/XML/Call/SetPromotionalSale.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::Call::SetPromotionalSale;
4              
5 1     1   2388 use strict;
  1         1  
  1         27  
6 1     1   5 use warnings;
  1         1  
  1         32  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. SetPromotionalSale.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::Call::SetPromotionalSale
21              
22             =head1 DESCRIPTION
23              
24              
25              
26             =head1 SYNOPSIS
27              
28             =cut
29              
30              
31             =head1 INHERITANCE
32              
33             eBay::API::XML::Call::SetPromotionalSale inherits from the L class
34              
35             =cut
36              
37 1     1   33 use eBay::API::XML::BaseCall;
  0            
  0            
38             our @ISA = ("eBay::API::XML::BaseCall");
39              
40             use eBay::API::XML::Call::SetPromotionalSale::SetPromotionalSaleRequestType;
41             use eBay::API::XML::Call::SetPromotionalSale::SetPromotionalSaleResponseType;
42              
43              
44             =head1 Subroutines:
45              
46             =cut
47              
48             sub getApiCallName {
49             return 'SetPromotionalSale';
50             }
51             sub getRequestDataTypeFullPackage {
52             return 'eBay::API::XML::Call::SetPromotionalSale::SetPromotionalSaleRequestType';
53             }
54             sub getResponseDataTypeFullPackage {
55             return 'eBay::API::XML::Call::SetPromotionalSale::SetPromotionalSaleResponseType';
56             }
57              
58             #
59             # input properties
60             #
61              
62             =head2 setAction()
63              
64             Specifies adding, removing, or modifying promotional sales.
65              
66             RequiredInput: Yes
67             # Argument: 'ns:ModifyActionCodeType'
68              
69             =cut
70            
71             sub setAction {
72             my $self = shift;
73             my $sAction = shift;
74             $self->getRequestDataType()->setAction($sAction);
75             }
76              
77             =head2 setPromotionalSaleDetails()
78              
79             Specifies details about the promotional sale.
80              
81             RequiredInput: Yes
82             # Argument: 'ns:PromotionalSaleType'
83              
84             =cut
85            
86             sub setPromotionalSaleDetails {
87             my $self = shift;
88             my $pPromotionalSaleDetails = shift;
89             $self->getRequestDataType()->setPromotionalSaleDetails($pPromotionalSaleDetails);
90             }
91              
92              
93              
94             #
95             # output properties
96             #
97              
98             =head2 getPromotionalSaleID()
99              
100             Contains the ID of a promotional sale.
101              
102             Returned: Always
103             # Returns: 'xs:long'
104              
105             =cut
106            
107             sub getPromotionalSaleID {
108             my $self = shift;
109             return $self->getResponseDataType()->getPromotionalSaleID();
110             }
111              
112             =head2 getStatus()
113              
114             Contains the status of a promotional sale.
115              
116             Returned: Always
117             # Returns: 'ns:PromotionalSaleStatusCodeType'
118              
119             =cut
120            
121             sub getStatus {
122             my $self = shift;
123             return $self->getResponseDataType()->getStatus();
124             }
125              
126              
127              
128              
129              
130             1;