File Coverage

lib/eBay/API/XML/DataType/MarkUpMarkDownHistoryType.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::MarkUpMarkDownHistoryType;
4              
5 1     1   1650 use strict;
  1         2  
  1         31  
6 1     1   6 use warnings;
  1         3  
  1         32  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. MarkUpMarkDownHistoryType.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::MarkUpMarkDownHistoryType
21              
22             =head1 DESCRIPTION
23              
24             List of objects representing markup or markdown events for a given application
25             and time period. If no time period is specified in the request, the information
26             for only one day (24 hours before the time the call is made to the time the call
27             is made) is included. The maximum time period is allowed is 3 days (72 hours
28             before the call is made to the time the call is made).
29              
30              
31              
32             =head1 SYNOPSIS
33              
34             =cut
35              
36              
37             =head1 INHERITANCE
38              
39             eBay::API::XML::DataType::MarkUpMarkDownHistoryType inherits from the L class
40              
41             =cut
42              
43 1     1   66 use eBay::API::XML::BaseDataType;
  0            
  0            
44             our @ISA = ("eBay::API::XML::BaseDataType");
45              
46             use eBay::API::XML::DataType::MarkUpMarkDownEventType;
47              
48              
49             my @gaProperties = ( [ 'MarkUpMarkDownEvent', 'ns:MarkUpMarkDownEventType', '1'
50             ,'eBay::API::XML::DataType::MarkUpMarkDownEventType', '1' ]
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 setMarkUpMarkDownEvent()
76              
77             Details for a MarkDown or MarkUp event.
78              
79             # Argument: reference to an array
80             of 'ns:MarkUpMarkDownEventType'
81              
82             =cut
83              
84             sub setMarkUpMarkDownEvent {
85             my $self = shift;
86             $self->{'MarkUpMarkDownEvent'} =
87             $self->convertArray_To_RefToArrayIfNeeded(@_);
88             }
89              
90             =head2 getMarkUpMarkDownEvent()
91              
92             Calls: GetNotificationsUsage
93             Returned: Conditionally
94              
95             # Returns: reference to an array
96             of 'ns:MarkUpMarkDownEventType'
97              
98             =cut
99              
100             sub getMarkUpMarkDownEvent {
101             my $self = shift;
102             return $self->_getDataTypeArray('MarkUpMarkDownEvent');
103             }
104              
105              
106              
107              
108              
109             ## Attribute and Property lists
110             sub getPropertiesList {
111             my $self = shift;
112             return \@gaProperties;
113             }
114              
115             sub getAttributesList {
116             my $self = shift;
117             return \@gaAttributes;
118             }
119              
120              
121              
122             1;