File Coverage

lib/eBay/API/XML/DataType/OrderIDType.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::OrderIDType;
4              
5 1     1   1207 use strict;
  1         2  
  1         32  
6 1     1   5 use warnings;
  1         2  
  1         30  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. OrderIDType.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::OrderIDType
21              
22             =head1 DESCRIPTION
23              
24             A unique identifier for an order.
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::OrderIDType 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              
43              
44             my @gaProperties = ( [ 'content', 'xs:string', '', '', '' ]
45             );
46             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
47              
48             my @gaAttributes = (
49             );
50             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
51              
52             =head1 Subroutines:
53              
54             =cut
55              
56             sub new {
57             my $classname = shift;
58             my %args = @_;
59             my $self = $classname->SUPER::new(%args);
60             return $self;
61             }
62              
63             sub isScalar {
64             return 0;
65             }
66              
67              
68              
69             =head2 setValue()
70              
71             # Argument: 'xs:string'
72              
73             =cut
74              
75             sub setValue {
76             my $self = shift;
77             $self->{'content'} = shift
78             }
79              
80             =head2 getValue()
81              
82             # Returns: 'xs:string'
83              
84             =cut
85              
86             sub getValue {
87             my $self = shift;
88             return $self->{'content'};
89             }
90              
91              
92              
93              
94              
95             ## Attribute and Property lists
96             sub getPropertiesList {
97             my $self = shift;
98             return \@gaProperties;
99             }
100              
101             sub getAttributesList {
102             my $self = shift;
103             return \@gaAttributes;
104             }
105              
106              
107              
108             1;