sub
_type_name {
return
'BehavioralBid'
;
}
sub
_namespace_uri {
}
our
@_attributes
= (
qw/
Bid
Id
Name
SegmentId
Status
/
);
sub
_attributes {
my
$self
=
shift
;
return
(
$self
->SUPER::_attributes,
@_attributes
);
}
our
%_attribute_type
= (
Bid
=>
'Bid'
,
Id
=>
'long'
,
Name
=>
'string'
,
SegmentId
=>
'long'
,
Status
=>
'BehavioralBidStatus'
,
);
sub
_attribute_type {
my
(
$self
,
$attribute
) =
@_
;
if
(
exists
$_attribute_type
{
$attribute
}) {
return
$_attribute_type
{
$attribute
};
}
return
$self
->SUPER::_attribute_type(
$attribute
);
}
our
%_attribute_min_occurs
= (
Bid
=> 0,
Id
=> 0,
Name
=> 0,
SegmentId
=> 0,
Status
=> 0,
);
sub
_attribute_min_occurs {
my
(
$self
,
$attribute
) =
@_
;
if
(
exists
$_attribute_min_occurs
{
$attribute
}) {
return
$_attribute_min_occurs
{
$attribute
};
}
return
$self
->SUPER::_attribute_min_occurs(
$attribute
);
}
__PACKAGE__->mk_accessors(
@_attributes
);
1;