File Coverage

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