File Coverage

lib/eBay/API/XML/DataType/FaultDetailsType.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::FaultDetailsType;
4              
5 1     1   2377 use strict;
  1         3  
  1         44  
6 1     1   6 use warnings;
  1         2  
  1         34  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. FaultDetailsType.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::FaultDetailsType
21              
22             =head1 DESCRIPTION
23              
24             SOAP faults are used to indicate that an infrastructure error has occurred,
25             such as a problem on eBay's side with database or server going down, or a
26             problem with the client or server-side SOAP framework.
27              
28              
29              
30             =head1 SYNOPSIS
31              
32             =cut
33              
34              
35             =head1 INHERITANCE
36              
37             eBay::API::XML::DataType::FaultDetailsType inherits from the L class
38              
39             =cut
40              
41 1     1   43 use eBay::API::XML::BaseDataType;
  0            
  0            
42             our @ISA = ("eBay::API::XML::BaseDataType");
43              
44              
45              
46             my @gaProperties = ( [ 'DetailedMessage', 'xs:string', '', '', '' ]
47             , [ 'ErrorCode', 'xs:string', '', '', '' ]
48             , [ 'Severity', 'xs:string', '', '', '' ]
49             );
50             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
51              
52             my @gaAttributes = (
53             );
54             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
55              
56             =head1 Subroutines:
57              
58             =cut
59              
60             sub new {
61             my $classname = shift;
62             my %args = @_;
63             my $self = $classname->SUPER::new(%args);
64             return $self;
65             }
66              
67             sub isScalar {
68             return 0;
69             }
70              
71              
72              
73             =head2 setDetailedMessage()
74              
75             Description of the condition that caused the SOAP fault.
76              
77             # Argument: 'xs:string'
78              
79             =cut
80              
81             sub setDetailedMessage {
82             my $self = shift;
83             $self->{'DetailedMessage'} = shift
84             }
85              
86             =head2 getDetailedMessage()
87              
88             # Returns: 'xs:string'
89              
90             =cut
91              
92             sub getDetailedMessage {
93             my $self = shift;
94             return $self->{'DetailedMessage'};
95             }
96              
97              
98             =head2 setErrorCode()
99              
100             Error code can be used by a receiving application to debug a SOAP response
101             message that contains one or more SOAP fault details.
102             Each error code is uniquely defined for each fault scenario.
103             See the eBay documentation for more information.
104             Your application can use error codes as identifiers
105             in your customized error-handling algorithms.
106              
107             # Argument: 'xs:string'
108              
109             =cut
110              
111             sub setErrorCode {
112             my $self = shift;
113             $self->{'ErrorCode'} = shift
114             }
115              
116             =head2 getErrorCode()
117              
118             # Returns: 'xs:string'
119              
120             =cut
121              
122             sub getErrorCode {
123             my $self = shift;
124             return $self->{'ErrorCode'};
125             }
126              
127              
128             =head2 setSeverity()
129              
130             Indicates whether the error is a severe error (causing the request to fail)
131             or an informational error (a warning).
132              
133             # Argument: 'xs:string'
134              
135             =cut
136              
137             sub setSeverity {
138             my $self = shift;
139             $self->{'Severity'} = shift
140             }
141              
142             =head2 getSeverity()
143              
144             # Returns: 'xs:string'
145              
146             =cut
147              
148             sub getSeverity {
149             my $self = shift;
150             return $self->{'Severity'};
151             }
152              
153              
154              
155              
156              
157             ## Attribute and Property lists
158             sub getPropertiesList {
159             my $self = shift;
160             return \@gaProperties;
161             }
162              
163             sub getAttributesList {
164             my $self = shift;
165             return \@gaAttributes;
166             }
167              
168              
169              
170             1;