File Coverage

lib/eBay/API/XML/DataType/ReminderCustomizationType.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::ReminderCustomizationType;
4              
5 1     1   1418 use strict;
  1         4  
  1         37  
6 1     1   6 use warnings;
  1         2  
  1         43  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. ReminderCustomizationType.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::ReminderCustomizationType
21              
22             =head1 DESCRIPTION
23              
24             Specifies how to return certain reminder types from the user's My eBay account.
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::ReminderCustomizationType inherits from the L class
36              
37             =cut
38              
39 1     1   47 use eBay::API::XML::BaseDataType;
  0            
  0            
40             our @ISA = ("eBay::API::XML::BaseDataType");
41              
42              
43              
44             my @gaProperties = ( [ 'DurationInDays', 'xs:int', '', '', '' ]
45             , [ 'Include', 'xs:boolean', '', '', '' ]
46             );
47             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
48              
49             my @gaAttributes = (
50             );
51             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
52              
53             =head1 Subroutines:
54              
55             =cut
56              
57             sub new {
58             my $classname = shift;
59             my %args = @_;
60             my $self = $classname->SUPER::new(%args);
61             return $self;
62             }
63              
64             sub isScalar {
65             return 0;
66             }
67              
68              
69              
70             =head2 setDurationInDays()
71              
72             The length of time the reminder has existed in the user's My eBay account,
73             in days. Valid values are 1-60.
74              
75             Calls: GetMyeBayReminders
76             RequiredInput: No
77              
78             # Argument: 'xs:int'
79              
80             =cut
81              
82             sub setDurationInDays {
83             my $self = shift;
84             $self->{'DurationInDays'} = shift
85             }
86              
87             =head2 getDurationInDays()
88              
89             # Returns: 'xs:int'
90              
91             =cut
92              
93             sub getDurationInDays {
94             my $self = shift;
95             return $self->{'DurationInDays'};
96             }
97              
98              
99             =head2 setInclude()
100              
101             Whether to include information about this type of reminder in the response.
102             When true, the container is returned with default input parameters.
103              
104             Calls: GetMyeBayReminders
105             RequiredInput: No
106              
107             # Argument: 'xs:boolean'
108              
109             =cut
110              
111             sub setInclude {
112             my $self = shift;
113             $self->{'Include'} = shift
114             }
115              
116             =head2 isInclude()
117              
118             # Returns: 'xs:boolean'
119              
120             =cut
121              
122             sub isInclude {
123             my $self = shift;
124             return $self->{'Include'};
125             }
126              
127              
128              
129              
130              
131             ## Attribute and Property lists
132             sub getPropertiesList {
133             my $self = shift;
134             return \@gaProperties;
135             }
136              
137             sub getAttributesList {
138             my $self = shift;
139             return \@gaAttributes;
140             }
141              
142              
143              
144             1;