sub
new {
my
(
$class
,
$args
) =
@_
;
my
$self
= {
campaignCount
=>
$args
->{campaignCount},
currencyCode
=>
$args
->{currencyCode},
effectiveCurrencyCode
=>
$args
->{effectiveCurrencyCode},
enhancedCpc
=>
$args
->{enhancedCpc},
id
=>
$args
->{id},
maximizeConversionValue
=>
$args
->{maximizeConversionValue},
maximizeConversions
=>
$args
->{maximizeConversions},
name
=>
$args
->{name},
nonRemovedCampaignCount
=>
$args
->{nonRemovedCampaignCount},
resourceName
=>
$args
->{resourceName},
status
=>
$args
->{status},
targetCpa
=>
$args
->{targetCpa},
targetImpressionShare
=>
$args
->{targetImpressionShare},
targetRoas
=>
$args
->{targetRoas},
targetSpend
=>
$args
->{targetSpend},
type
=>
$args
->{type}};
remove_unassigned_fields(
$self
,
$args
);
bless
$self
,
$class
;
return
$self
;
}
1;