sub
new {
my
(
$class
,
$args
) =
@_
;
my
$self
= {
hotelCity
=>
$args
->{hotelCity},
hotelClass
=>
$args
->{hotelClass},
hotelCountryRegion
=>
$args
->{hotelCountryRegion},
hotelId
=>
$args
->{hotelId},
hotelState
=>
$args
->{hotelState},
productBiddingCategory
=>
$args
->{productBiddingCategory},
productBrand
=>
$args
->{productBrand},
productChannel
=>
$args
->{productChannel},
productChannelExclusivity
=>
$args
->{productChannelExclusivity},
productCondition
=>
$args
->{productCondition},
productCustomAttribute
=>
$args
->{productCustomAttribute},
productGrouping
=>
$args
->{productGrouping},
productItemId
=>
$args
->{productItemId},
productLabels
=>
$args
->{productLabels},
productLegacyCondition
=>
$args
->{productLegacyCondition},
productType
=>
$args
->{productType},
productTypeFull
=>
$args
->{productTypeFull},
unknownListingDimension
=>
$args
->{unknownListingDimension}};
remove_unassigned_fields(
$self
,
$args
);
bless
$self
,
$class
;
return
$self
;
}
1;