File Coverage

lib/eBay/API/XML/DataType/NotificationEnableType.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::NotificationEnableType;
4              
5 1     1   1119 use strict;
  1         2  
  1         26  
6 1     1   5 use warnings;
  1         4  
  1         25  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. NotificationEnableType.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::NotificationEnableType
21              
22             =head1 DESCRIPTION
23              
24             Specifies a notification event and whether the
25             notification is enabled or disabled.
26              
27              
28              
29             =head1 SYNOPSIS
30              
31             =cut
32              
33              
34             =head1 INHERITANCE
35              
36             eBay::API::XML::DataType::NotificationEnableType inherits from the L class
37              
38             =cut
39              
40 1     1   44 use eBay::API::XML::BaseDataType;
  0            
  0            
41             our @ISA = ("eBay::API::XML::BaseDataType");
42              
43             use eBay::API::XML::DataType::Enum::EnableCodeType;
44             use eBay::API::XML::DataType::Enum::NotificationEventTypeCodeType;
45              
46              
47             my @gaProperties = ( [ 'EventEnable', 'ns:EnableCodeType', ''
48             ,'eBay::API::XML::DataType::Enum::EnableCodeType', '' ]
49             , [ 'EventType', 'ns:NotificationEventTypeCodeType', ''
50             ,'eBay::API::XML::DataType::Enum::NotificationEventTypeCodeType', '' ]
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 setEventEnable()
76              
77             Whether the event is enabled or disabled.
78              
79             Calls: SetNotificationPreferences
80             RequiredInput: No
81              
82             # Argument: 'ns:EnableCodeType'
83              
84             =cut
85              
86             sub setEventEnable {
87             my $self = shift;
88             $self->{'EventEnable'} = shift
89             }
90              
91             =head2 getEventEnable()
92              
93             Calls: GetNotificationPreferences
94             Returned: Conditionally
95              
96             # Returns: 'ns:EnableCodeType'
97              
98             =cut
99              
100             sub getEventEnable {
101             my $self = shift;
102             return $self->{'EventEnable'};
103             }
104              
105              
106             =head2 setEventType()
107              
108             The name of the notification event.
109              
110             Calls: SetNotificationPreferences
111             RequiredInput: No
112             AllValuesExcept: None, FeedbackForSeller
113              
114             # Argument: 'ns:NotificationEventTypeCodeType'
115              
116             =cut
117              
118             sub setEventType {
119             my $self = shift;
120             $self->{'EventType'} = shift
121             }
122              
123             =head2 getEventType()
124              
125             Calls: GetNotificationPreferences
126             Returned: Conditionally
127             AllValuesExcept: FeedbackForSeller
128              
129             # Returns: 'ns:NotificationEventTypeCodeType'
130              
131             =cut
132              
133             sub getEventType {
134             my $self = shift;
135             return $self->{'EventType'};
136             }
137              
138              
139              
140              
141              
142             ## Attribute and Property lists
143             sub getPropertiesList {
144             my $self = shift;
145             return \@gaProperties;
146             }
147              
148             sub getAttributesList {
149             my $self = shift;
150             return \@gaAttributes;
151             }
152              
153              
154              
155             1;