sub
new {
my
(
$class
,
$args
) =
@_
;
my
$self
= {
adGroup
=>
$args
->{adGroup},
adGroupAd
=>
$args
->{adGroupAd},
adGroupAsset
=>
$args
->{adGroupAsset},
adGroupBidModifier
=>
$args
->{adGroupBidModifier},
adGroupCriterion
=>
$args
->{adGroupCriterion},
adGroupFeed
=>
$args
->{adGroupFeed},
asset
=>
$args
->{asset},
campaign
=>
$args
->{campaign},
campaignAsset
=>
$args
->{campaignAsset},
campaignCriterion
=>
$args
->{campaignCriterion},
campaignFeed
=>
$args
->{campaignFeed},
campaignSharedSet
=>
$args
->{campaignSharedSet},
customerAsset
=>
$args
->{customerAsset},
feed
=>
$args
->{feed},
feedItem
=>
$args
->{feedItem},
lastChangeDateTime
=>
$args
->{lastChangeDateTime},
resourceName
=>
$args
->{resourceName},
resourceStatus
=>
$args
->{resourceStatus},
resourceType
=>
$args
->{resourceType},
sharedSet
=>
$args
->{sharedSet}};
remove_unassigned_fields(
$self
,
$args
);
bless
$self
,
$class
;
return
$self
;
}
1;