sub
new {
my
(
$class
,
$args
) =
@_
;
my
$self
= {
adSchedules
=>
$args
->{adSchedules},
affiliateLocationFeedItem
=>
$args
->{affiliateLocationFeedItem},
appFeedItem
=>
$args
->{appFeedItem},
callFeedItem
=>
$args
->{callFeedItem},
calloutFeedItem
=>
$args
->{calloutFeedItem},
device
=>
$args
->{device},
endDateTime
=>
$args
->{endDateTime},
extensionType
=>
$args
->{extensionType},
hotelCalloutFeedItem
=>
$args
->{hotelCalloutFeedItem},
id
=>
$args
->{id},
imageFeedItem
=>
$args
->{imageFeedItem},
locationFeedItem
=>
$args
->{locationFeedItem},
priceFeedItem
=>
$args
->{priceFeedItem},
promotionFeedItem
=>
$args
->{promotionFeedItem},
resourceName
=>
$args
->{resourceName},
sitelinkFeedItem
=>
$args
->{sitelinkFeedItem},
startDateTime
=>
$args
->{startDateTime},
status
=>
$args
->{status},
structuredSnippetFeedItem
=>
$args
->{structuredSnippetFeedItem},
targetedAdGroup
=>
$args
->{targetedAdGroup},
targetedCampaign
=>
$args
->{targetedCampaign},
targetedGeoTargetConstant
=>
$args
->{targetedGeoTargetConstant},
targetedKeyword
=>
$args
->{targetedKeyword},
textMessageFeedItem
=>
$args
->{textMessageFeedItem}};
remove_unassigned_fields(
$self
,
$args
);
bless
$self
,
$class
;
return
$self
;
}
1;