sub
new {
my
(
$class
,
$args
) =
@_
;
my
$self
= {
androidAppLink
=>
$args
->{androidAppLink},
category
=>
$args
->{category},
contextualKeywords
=>
$args
->{contextualKeywords},
destinationAddress
=>
$args
->{destinationAddress},
destinationId
=>
$args
->{destinationId},
destinationName
=>
$args
->{destinationName},
formattedPrice
=>
$args
->{formattedPrice},
formattedSalePrice
=>
$args
->{formattedSalePrice},
imageUrl
=>
$args
->{imageUrl},
iosAppLink
=>
$args
->{iosAppLink},
iosAppStoreId
=>
$args
->{iosAppStoreId},
originId
=>
$args
->{originId},
originName
=>
$args
->{originName},
price
=>
$args
->{price},
salePrice
=>
$args
->{salePrice},
similarDestinationIds
=>
$args
->{similarDestinationIds},
title
=>
$args
->{title}};
remove_unassigned_fields(
$self
,
$args
);
bless
$self
,
$class
;
return
$self
;
}
1;