sub
new {
my
(
$class
,
$args
) =
@_
;
my
$self
= {
androidAppLink
=>
$args
->{androidAppLink},
contextualKeywords
=>
$args
->{contextualKeywords},
formattedPrice
=>
$args
->{formattedPrice},
formattedSalePrice
=>
$args
->{formattedSalePrice},
id
=>
$args
->{id},
id2
=>
$args
->{id2},
imageUrl
=>
$args
->{imageUrl},
iosAppLink
=>
$args
->{iosAppLink},
iosAppStoreId
=>
$args
->{iosAppStoreId},
itemAddress
=>
$args
->{itemAddress},
itemCategory
=>
$args
->{itemCategory},
itemDescription
=>
$args
->{itemDescription},
itemSubtitle
=>
$args
->{itemSubtitle},
itemTitle
=>
$args
->{itemTitle},
price
=>
$args
->{price},
salePrice
=>
$args
->{salePrice},
similarIds
=>
$args
->{similarIds}};
remove_unassigned_fields(
$self
,
$args
);
bless
$self
,
$class
;
return
$self
;
}
1;