File Coverage

lib/eBay/API/XML/DataType/NotificationEventPropertyType.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::NotificationEventPropertyType;
4              
5 1     1   1121 use strict;
  1         2  
  1         25  
6 1     1   5 use warnings;
  1         2  
  1         108  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. NotificationEventPropertyType.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::NotificationEventPropertyType
21              
22             =head1 DESCRIPTION
23              
24             Defines properties associated with particular event.
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::NotificationEventPropertyType inherits from the L class
36              
37             =cut
38              
39 1     1   40 use eBay::API::XML::BaseDataType;
  0            
  0            
40             our @ISA = ("eBay::API::XML::BaseDataType");
41              
42             use eBay::API::XML::DataType::Enum::NotificationEventPropertyNameCodeType;
43             use eBay::API::XML::DataType::Enum::NotificationEventTypeCodeType;
44              
45              
46             my @gaProperties = ( [ 'EventType', 'ns:NotificationEventTypeCodeType', ''
47             ,'eBay::API::XML::DataType::Enum::NotificationEventTypeCodeType', '' ]
48             , [ 'Name', 'ns:NotificationEventPropertyNameCodeType', ''
49             ,'eBay::API::XML::DataType::Enum::NotificationEventPropertyNameCodeType', '' ]
50             , [ 'Value', 'xs:string', '', '', '' ]
51             );
52             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
53              
54             my @gaAttributes = (
55             );
56             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
57              
58             =head1 Subroutines:
59              
60             =cut
61              
62             sub new {
63             my $classname = shift;
64             my %args = @_;
65             my $self = $classname->SUPER::new(%args);
66             return $self;
67             }
68              
69             sub isScalar {
70             return 0;
71             }
72              
73              
74              
75             =head2 setEventType()
76              
77             The name of the notification event.
78              
79             Calls: SetNotificationPreferences
80             RequiredInput: No
81             AllValuesExcept: None
82              
83             # Argument: 'ns:NotificationEventTypeCodeType'
84              
85             =cut
86              
87             sub setEventType {
88             my $self = shift;
89             $self->{'EventType'} = shift
90             }
91              
92             =head2 getEventType()
93              
94             Calls: GetNotificationPreferences
95             Returned: Conditionally
96              
97             # Returns: 'ns:NotificationEventTypeCodeType'
98              
99             =cut
100              
101             sub getEventType {
102             my $self = shift;
103             return $self->{'EventType'};
104             }
105              
106              
107             =head2 setName()
108              
109             Specify property name associated with an particular event.
110              
111             Calls: SetNotificationPreferences
112             RequiredInput: No
113              
114             # Argument: 'ns:NotificationEventPropertyNameCodeType'
115              
116             =cut
117              
118             sub setName {
119             my $self = shift;
120             $self->{'Name'} = shift
121             }
122              
123             =head2 getName()
124              
125             Calls: GetNotificationPreferences
126             Returned: Conditionally
127              
128             # Returns: 'ns:NotificationEventPropertyNameCodeType'
129              
130             =cut
131              
132             sub getName {
133             my $self = shift;
134             return $self->{'Name'};
135             }
136              
137              
138             =head2 setValue()
139              
140             Specifies the value for the property.
141              
142             Calls: SetNotificationPreferences
143             RequiredInput: No
144              
145             # Argument: 'xs:string'
146              
147             =cut
148              
149             sub setValue {
150             my $self = shift;
151             $self->{'Value'} = shift
152             }
153              
154             =head2 getValue()
155              
156             Calls: GetNotificationPreferences
157             Returned: Conditionally
158              
159             # Returns: 'xs:string'
160              
161             =cut
162              
163             sub getValue {
164             my $self = shift;
165             return $self->{'Value'};
166             }
167              
168              
169              
170              
171              
172             ## Attribute and Property lists
173             sub getPropertiesList {
174             my $self = shift;
175             return \@gaProperties;
176             }
177              
178             sub getAttributesList {
179             my $self = shift;
180             return \@gaAttributes;
181             }
182              
183              
184              
185             1;