File Coverage

lib/eBay/API/XML/Call/GetCrossPromotions.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::GetCrossPromotions;
4              
5 1     1   5561 use strict;
  1         6  
  1         65  
6 1     1   10 use warnings;
  1         4  
  1         61  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. GetCrossPromotions.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::GetCrossPromotions
21              
22             =head1 DESCRIPTION
23              
24              
25              
26             =head1 SYNOPSIS
27              
28             =cut
29              
30              
31             =head1 INHERITANCE
32              
33             eBay::API::XML::Call::GetCrossPromotions inherits from the L class
34              
35             =cut
36              
37 1     1   66 use eBay::API::XML::BaseCall;
  0            
  0            
38             our @ISA = ("eBay::API::XML::BaseCall");
39              
40             use eBay::API::XML::Call::GetCrossPromotions::GetCrossPromotionsRequestType;
41             use eBay::API::XML::Call::GetCrossPromotions::GetCrossPromotionsResponseType;
42              
43              
44             =head1 Subroutines:
45              
46             =cut
47              
48             sub getApiCallName {
49             return 'GetCrossPromotions';
50             }
51             sub getRequestDataTypeFullPackage {
52             return 'eBay::API::XML::Call::GetCrossPromotions::GetCrossPromotionsRequestType';
53             }
54             sub getResponseDataTypeFullPackage {
55             return 'eBay::API::XML::Call::GetCrossPromotions::GetCrossPromotionsResponseType';
56             }
57              
58             #
59             # input properties
60             #
61              
62             =head2 setItemID()
63              
64             The unique ID of the referring item. The cross-promoted
65             items will supplement this item.
66              
67             MaxLength: 19 (Note: The eBay database specifies 38. Currently, Item IDs are usually 9 to 12 digits)
68              
69             RequiredInput: Yes
70             # Argument: 'ns:ItemIDType'
71              
72             =cut
73            
74             sub setItemID {
75             my $self = shift;
76             my $pItemID = shift;
77             $self->getRequestDataType()->setItemID($pItemID);
78             }
79              
80             =head2 setPromotionMethod()
81              
82             The cross-promotion method you want to use for the
83             returned list, either UpSell or CrossSell.
84              
85             RequiredInput: Yes
86             # Argument: 'ns:PromotionMethodCodeType'
87              
88             =cut
89            
90             sub setPromotionMethod {
91             my $self = shift;
92             my $sPromotionMethod = shift;
93             $self->getRequestDataType()->setPromotionMethod($sPromotionMethod);
94             }
95              
96             =head2 setPromotionViewMode()
97              
98             The role of the person requesting to view the cross-promoted
99             items, either seller or buyer. Default is buyer.
100              
101             RequiredInput: No
102             # Argument: 'ns:TradingRoleCodeType'
103              
104             =cut
105            
106             sub setPromotionViewMode {
107             my $self = shift;
108             my $sPromotionViewMode = shift;
109             $self->getRequestDataType()->setPromotionViewMode($sPromotionViewMode);
110             }
111              
112              
113              
114             #
115             # output properties
116             #
117              
118             =head2 getCrossPromotion()
119              
120             A list of cross-promoted items defined for a specific
121             referring item. The list is either upsell or cross-sell
122             items, according to the value of PromotionMethod in
123             GetCrossPromotionsRequest.
124              
125             Returned: Always
126             # Returns: 'ns:CrossPromotionsType'
127              
128             =cut
129            
130             sub getCrossPromotion {
131             my $self = shift;
132             return $self->getResponseDataType()->getCrossPromotion();
133             }
134              
135              
136              
137              
138              
139             1;