File Coverage

lib/eBay/API/XML/Call/GetAttributesXSL/GetAttributesXSLRequestType.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::GetAttributesXSLRequestType;
4              
5 1     1   1350 use strict;
  1         2  
  1         23  
6 1     1   4 use warnings;
  1         1  
  1         35  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. GetAttributesXSLRequestType.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::GetAttributesXSLRequestType
21              
22             =head1 DESCRIPTION
23              
24             Retrieves the Item Specifics SYI XSL stylesheet. Apply the stylesheet to the
25             XML returned from a call to GetAttributesCS or GetProductSellingPages to
26             render a form like the Item Specifics portion of eBay's Title and Description page.
27             See the eBay Web Services Guide for an overview of Item Specifics and information
28             on working with the XSL.
29              
30              
31              
32             =head1 SYNOPSIS
33              
34             =cut
35              
36              
37             =head1 INHERITANCE
38              
39             eBay::API::XML::Call::GetAttributesXSL::GetAttributesXSLRequestType inherits from the L class
40              
41             =cut
42              
43 1     1   32 use eBay::API::XML::RequestDataType;
  0            
  0            
44             our @ISA = ("eBay::API::XML::RequestDataType");
45              
46              
47              
48             my @gaProperties = ( [ 'FileName', 'xs:string', '', '', '' ]
49             , [ 'FileVersion', 'xs:string', '', '', '' ]
50             );
51             push @gaProperties, @{eBay::API::XML::RequestDataType::getPropertiesList()};
52              
53             my @gaAttributes = (
54             );
55             push @gaAttributes, @{eBay::API::XML::RequestDataType::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 setFileName()
75              
76             The name of the XSL file to retrieve. If not specified, the call
77             returns the latest versions of all available XSL files.
78             FileName is an optional input. Valid values
79            
80             syi_attributes.xsl
81              
82             RequiredInput: No
83             # Argument: 'xs:string'
84              
85             =cut
86              
87             sub setFileName {
88             my $self = shift;
89             $self->{'FileName'} = shift
90             }
91              
92             =head2 getFileName()
93              
94             # Returns: 'xs:string'
95              
96             =cut
97              
98             sub getFileName {
99             my $self = shift;
100             return $self->{'FileName'};
101             }
102              
103              
104             =head2 setFileVersion()
105              
106             The desired version of the XSL file. Required if FileName is specified.
107             If not specified, the call returns the latest version of the file.
108             (This is not a filter for retrieving changes to the XSL file.)
109              
110             RequiredInput: Conditionally
111             # Argument: 'xs:string'
112              
113             =cut
114              
115             sub setFileVersion {
116             my $self = shift;
117             $self->{'FileVersion'} = shift
118             }
119              
120             =head2 getFileVersion()
121              
122             # Returns: 'xs:string'
123              
124             =cut
125              
126             sub getFileVersion {
127             my $self = shift;
128             return $self->{'FileVersion'};
129             }
130              
131              
132              
133              
134              
135             ## Attribute and Property lists
136             sub getPropertiesList {
137             my $self = shift;
138             return \@gaProperties;
139             }
140              
141             sub getAttributesList {
142             my $self = shift;
143             return \@gaAttributes;
144             }
145              
146              
147              
148             1;