sub
new {
my
(
$class
,
$args
) =
@_
;
my
$self
= {
autoTaggingEnabled
=>
$args
->{autoTaggingEnabled},
callReportingSetting
=>
$args
->{callReportingSetting},
conversionTrackingSetting
=>
$args
->{conversionTrackingSetting},
currencyCode
=>
$args
->{currencyCode},
descriptiveName
=>
$args
->{descriptiveName},
finalUrlSuffix
=>
$args
->{finalUrlSuffix},
hasPartnersBadge
=>
$args
->{hasPartnersBadge},
id
=>
$args
->{id},
manager
=>
$args
->{manager},
optimizationScore
=>
$args
->{optimizationScore},
optimizationScoreWeight
=>
$args
->{optimizationScoreWeight},
payPerConversionEligibilityFailureReasons
=>
$args
->{payPerConversionEligibilityFailureReasons},
remarketingSetting
=>
$args
->{remarketingSetting},
resourceName
=>
$args
->{resourceName},
status
=>
$args
->{status},
testAccount
=>
$args
->{testAccount},
timeZone
=>
$args
->{timeZone},
trackingUrlTemplate
=>
$args
->{trackingUrlTemplate}};
remove_unassigned_fields(
$self
,
$args
);
bless
$self
,
$class
;
return
$self
;
}
1;