File Coverage

lib/eBay/API/XML/DataType/ItemPolicyViolationType.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::ItemPolicyViolationType;
4              
5 1     1   2643 use strict;
  1         3  
  1         34  
6 1     1   6 use warnings;
  1         2  
  1         34  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. ItemPolicyViolationType.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::ItemPolicyViolationType
21              
22             =head1 DESCRIPTION
23              
24             Specifies the details of policy violations if the item was administratively canceled.
25             The details are the policy ID and the policy text.
26              
27              
28              
29             =head1 SYNOPSIS
30              
31             =cut
32              
33              
34             =head1 INHERITANCE
35              
36             eBay::API::XML::DataType::ItemPolicyViolationType inherits from the L class
37              
38             =cut
39              
40 1     1   46 use eBay::API::XML::BaseDataType;
  0            
  0            
41             our @ISA = ("eBay::API::XML::BaseDataType");
42              
43              
44              
45             my @gaProperties = ( [ 'PolicyID', 'xs:long', '', '', '' ]
46             , [ 'PolicyText', 'xs:string', '', '', '' ]
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             =head2 setPolicyID()
72              
73             Policy ID of the violated policy which resulted in item being administratively canceled.
74              
75             # Argument: 'xs:long'
76              
77             =cut
78              
79             sub setPolicyID {
80             my $self = shift;
81             $self->{'PolicyID'} = shift
82             }
83              
84             =head2 getPolicyID()
85              
86             Calls: GetSellerList
87             Returned: Conditionally
88             Details: DetailLevel: ItemReturnDescription, ReturnAll
89             GranularityLevel: Fine
90              
91              
92             Calls: GetItem
93             Returned: Conditionally
94             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
95              
96             # Returns: 'xs:long'
97              
98             =cut
99              
100             sub getPolicyID {
101             my $self = shift;
102             return $self->{'PolicyID'};
103             }
104              
105              
106             =head2 setPolicyText()
107              
108             Brief information of the violated policy which resulted in item being administratively canceled.
109              
110             # Argument: 'xs:string'
111              
112             =cut
113              
114             sub setPolicyText {
115             my $self = shift;
116             $self->{'PolicyText'} = shift
117             }
118              
119             =head2 getPolicyText()
120              
121             Calls: GetSellerList
122             Returned: Conditionally
123             Details: DetailLevel: ItemReturnDescription, ReturnAll
124             GranularityLevel: Fine
125              
126              
127             Calls: GetItem
128             Returned: Conditionally
129             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
130              
131             # Returns: 'xs:string'
132              
133             =cut
134              
135             sub getPolicyText {
136             my $self = shift;
137             return $self->{'PolicyText'};
138             }
139              
140              
141              
142              
143              
144             ## Attribute and Property lists
145             sub getPropertiesList {
146             my $self = shift;
147             return \@gaProperties;
148             }
149              
150             sub getAttributesList {
151             my $self = shift;
152             return \@gaAttributes;
153             }
154              
155              
156              
157             1;