File Coverage

lib/eBay/API/XML/DataType/ClassifiedAdPhoneCountDefinitionType.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::ClassifiedAdPhoneCountDefinitionType;
4              
5 1     1   1441 use strict;
  1         3  
  1         35  
6 1     1   9 use warnings;
  1         2  
  1         37  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. ClassifiedAdPhoneCountDefinitionType.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::ClassifiedAdPhoneCountDefinitionType
21              
22             =head1 DESCRIPTION
23              
24             Indicates which phone option the category supports for contacting
25             the seller for Classified Ad format listings.
26             Added for the For Sale By Owner format.
27              
28              
29              
30             =head1 SYNOPSIS
31              
32             =cut
33              
34              
35             =head1 INHERITANCE
36              
37             eBay::API::XML::DataType::ClassifiedAdPhoneCountDefinitionType inherits from the L class
38              
39             =cut
40              
41 1     1   46 use eBay::API::XML::BaseDataType;
  0            
  0            
42             our @ISA = ("eBay::API::XML::BaseDataType");
43              
44              
45              
46             my @gaProperties = (
47             );
48             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
49              
50             my @gaAttributes = (
51             );
52             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
53              
54             =head1 Subroutines:
55              
56             =cut
57              
58             sub new {
59             my $classname = shift;
60             my %args = @_;
61             my $self = $classname->SUPER::new(%args);
62             return $self;
63             }
64              
65             sub isScalar {
66             return 0;
67             }
68              
69              
70              
71              
72              
73              
74             ## Attribute and Property lists
75             sub getPropertiesList {
76             my $self = shift;
77             return \@gaProperties;
78             }
79              
80             sub getAttributesList {
81             my $self = shift;
82             return \@gaAttributes;
83             }
84              
85              
86              
87             1;