File Coverage

lib/eBay/API/XML/Call/GetAttributesXSL.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::GetAttributesXSL;
4              
5 1     1   2197 use strict;
  1         2  
  1         26  
6 1     1   4 use warnings;
  1         1  
  1         24  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. GetAttributesXSL.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::GetAttributesXSL
21              
22             =head1 DESCRIPTION
23              
24              
25              
26             =head1 SYNOPSIS
27              
28             =cut
29              
30              
31             =head1 INHERITANCE
32              
33             eBay::API::XML::Call::GetAttributesXSL inherits from the L class
34              
35             =cut
36              
37 1     1   31 use eBay::API::XML::BaseCall;
  0            
  0            
38             our @ISA = ("eBay::API::XML::BaseCall");
39              
40             use eBay::API::XML::Call::GetAttributesXSL::GetAttributesXSLRequestType;
41             use eBay::API::XML::Call::GetAttributesXSL::GetAttributesXSLResponseType;
42              
43              
44             =head1 Subroutines:
45              
46             =cut
47              
48             sub getApiCallName {
49             return 'GetAttributesXSL';
50             }
51             sub getRequestDataTypeFullPackage {
52             return 'eBay::API::XML::Call::GetAttributesXSL::GetAttributesXSLRequestType';
53             }
54             sub getResponseDataTypeFullPackage {
55             return 'eBay::API::XML::Call::GetAttributesXSL::GetAttributesXSLResponseType';
56             }
57              
58             #
59             # input properties
60             #
61              
62             =head2 setFileName()
63              
64             The name of the XSL file to retrieve. If not specified, the call
65             returns the latest versions of all available XSL files.
66             FileName is an optional input. Valid values
67            
68             syi_attributes.xsl
69              
70             RequiredInput: No
71             # Argument: 'xs:string'
72              
73             =cut
74            
75             sub setFileName {
76             my $self = shift;
77             my $sFileName = shift;
78             $self->getRequestDataType()->setFileName($sFileName);
79             }
80              
81             =head2 setFileVersion()
82              
83             The desired version of the XSL file. Required if FileName is specified.
84             If not specified, the call returns the latest version of the file.
85             (This is not a filter for retrieving changes to the XSL file.)
86              
87             RequiredInput: Conditionally
88             # Argument: 'xs:string'
89              
90             =cut
91            
92             sub setFileVersion {
93             my $self = shift;
94             my $sFileVersion = shift;
95             $self->getRequestDataType()->setFileVersion($sFileVersion);
96             }
97              
98              
99              
100             #
101             # output properties
102             #
103              
104             =head2 getXSLFile()
105              
106             Child elements contain data related to one XSL file.
107             Multiple XSLFile objects can be returned. However, currently only
108             one is returned.
109              
110             Returned: Always
111             Details: DetailLevel: none, ReturnAll
112             # Returns: reference to an array
113             of 'ns:XSLFileType'
114              
115             =cut
116            
117             sub getXSLFile {
118             my $self = shift;
119             return $self->getResponseDataType()->getXSLFile();
120             }
121              
122              
123              
124              
125              
126             1;