File Coverage

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