File Coverage

lib/eBay/API/XML/DataType/ClassifiedAdCompanyNameEnabledDefinitionType.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::ClassifiedAdCompanyNameEnabledDefinitionType;
4              
5 1     1   1846 use strict;
  1         2  
  1         33  
6 1     1   6 use warnings;
  1         2  
  1         33  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. ClassifiedAdCompanyNameEnabledDefinitionType.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::ClassifiedAdCompanyNameEnabledDefinitionType
21              
22             =head1 DESCRIPTION
23              
24             Indicates whether the category supports the use of a company name
25             when contacting 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::ClassifiedAdCompanyNameEnabledDefinitionType inherits from the L class
38              
39             =cut
40              
41 1     1   44 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;