File Coverage

lib/eBay/API/XML/DataType/RegionDetailsType.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::RegionDetailsType;
4              
5 1     1   942 use strict;
  1         3  
  1         31  
6 1     1   6 use warnings;
  1         2  
  1         30  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. RegionDetailsType.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::RegionDetailsType
21              
22             =head1 DESCRIPTION
23              
24             Details about a region.
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::RegionDetailsType inherits from the L class
36              
37             =cut
38              
39 1     1   35 use eBay::API::XML::BaseDataType;
  0            
  0            
40             our @ISA = ("eBay::API::XML::BaseDataType");
41              
42              
43              
44             my @gaProperties = ( [ 'Description', 'xs:string', '', '', '' ]
45             , [ 'RegionID', 'xs:string', '', '', '' ]
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 setDescription()
71              
72             Full name of the region.
73              
74             # Argument: 'xs:string'
75              
76             =cut
77              
78             sub setDescription {
79             my $self = shift;
80             $self->{'Description'} = shift
81             }
82              
83             =head2 getDescription()
84              
85             Calls: GeteBayDetails
86             Returned: Conditionally
87              
88             # Returns: 'xs:string'
89              
90             =cut
91              
92             sub getDescription {
93             my $self = shift;
94             return $self->{'Description'};
95             }
96              
97              
98             =head2 setRegionID()
99              
100             Numeric identifier for a region within a country.
101              
102             Ignore:
103             # Argument: 'xs:string'
104              
105             =cut
106              
107             sub setRegionID {
108             my $self = shift;
109             $self->{'RegionID'} = shift
110             }
111              
112             =head2 getRegionID()
113              
114             Calls: GeteBayDetails
115             Returned: Conditionally
116              
117             # Returns: 'xs:string'
118              
119             =cut
120              
121             sub getRegionID {
122             my $self = shift;
123             return $self->{'RegionID'};
124             }
125              
126              
127              
128              
129              
130             ## Attribute and Property lists
131             sub getPropertiesList {
132             my $self = shift;
133             return \@gaProperties;
134             }
135              
136             sub getAttributesList {
137             my $self = shift;
138             return \@gaAttributes;
139             }
140              
141              
142              
143             1;