File Coverage

lib/eBay/API/XML/DataType/MarkUpMarkDownEventType.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::MarkUpMarkDownEventType;
4              
5 1     1   1260 use strict;
  1         3  
  1         31  
6 1     1   4 use warnings;
  1         3  
  1         32  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. MarkUpMarkDownEventType.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::MarkUpMarkDownEventType
21              
22             =head1 DESCRIPTION
23              
24             Describes an individual mark-up or mark-down event. eBay will automatically
25             mark an application as down if attempts to deliver a notification fail
26             repeatedly. eBay may mark an application down manually under certain
27             circumstances.
28              
29              
30              
31             =head1 SYNOPSIS
32              
33             =cut
34              
35              
36             =head1 INHERITANCE
37              
38             eBay::API::XML::DataType::MarkUpMarkDownEventType inherits from the L class
39              
40             =cut
41              
42 1     1   43 use eBay::API::XML::BaseDataType;
  0            
  0            
43             our @ISA = ("eBay::API::XML::BaseDataType");
44              
45             use eBay::API::XML::DataType::Enum::MarkUpMarkDownEventTypeCodeType;
46              
47              
48             my @gaProperties = ( [ 'Reason', 'xs:string', '', '', '' ]
49             , [ 'Time', 'xs:dateTime', '', '', '' ]
50             , [ 'Type', 'ns:MarkUpMarkDownEventTypeCodeType', ''
51             ,'eBay::API::XML::DataType::Enum::MarkUpMarkDownEventTypeCodeType', '' ]
52             );
53             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
54              
55             my @gaAttributes = (
56             );
57             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
58              
59             =head1 Subroutines:
60              
61             =cut
62              
63             sub new {
64             my $classname = shift;
65             my %args = @_;
66             my $self = $classname->SUPER::new(%args);
67             return $self;
68             }
69              
70             sub isScalar {
71             return 0;
72             }
73              
74              
75              
76             =head2 setReason()
77              
78             Describes how the application was marked down, automatically or
79             manually. When an application is automatically marked down, eBay will
80             ping the application periodically, and if communication is restored, eBay
81             will automatically mark the application up. If your application is marked
82             down manually, you must contact eBay Developer Support to get your
83             application marked up. A Reason is not provided for mark up events.
84              
85             # Argument: 'xs:string'
86              
87             =cut
88              
89             sub setReason {
90             my $self = shift;
91             $self->{'Reason'} = shift
92             }
93              
94             =head2 getReason()
95              
96             Calls: GetNotificationsUsage
97             Returned: Conditionally
98              
99             # Returns: 'xs:string'
100              
101             =cut
102              
103             sub getReason {
104             my $self = shift;
105             return $self->{'Reason'};
106             }
107              
108              
109             =head2 setTime()
110              
111             Time when the application was marked up or marked down.
112              
113             # Argument: 'xs:dateTime'
114              
115             =cut
116              
117             sub setTime {
118             my $self = shift;
119             $self->{'Time'} = shift
120             }
121              
122             =head2 getTime()
123              
124             Calls: GetNotificationsUsage
125             Returned: Conditionally
126              
127             # Returns: 'xs:dateTime'
128              
129             =cut
130              
131             sub getTime {
132             my $self = shift;
133             return $self->{'Time'};
134             }
135              
136              
137             =head2 setType()
138              
139             Whether the application has been marked up or marked down.
140              
141             # Argument: 'ns:MarkUpMarkDownEventTypeCodeType'
142              
143             =cut
144              
145             sub setType {
146             my $self = shift;
147             $self->{'Type'} = shift
148             }
149              
150             =head2 getType()
151              
152             Calls: GetNotificationsUsage
153             Returned: Conditionally
154              
155             # Returns: 'ns:MarkUpMarkDownEventTypeCodeType'
156              
157             =cut
158              
159             sub getType {
160             my $self = shift;
161             return $self->{'Type'};
162             }
163              
164              
165              
166              
167              
168             ## Attribute and Property lists
169             sub getPropertiesList {
170             my $self = shift;
171             return \@gaProperties;
172             }
173              
174             sub getAttributesList {
175             my $self = shift;
176             return \@gaAttributes;
177             }
178              
179              
180              
181             1;