sub
new {
my
(
$class
,
$args
) =
@_
;
my
$self
= {
accountBudgetSummaries
=>
$args
->{accountBudgetSummaries},
adjustmentsSubtotalAmountMicros
=>
$args
->{adjustmentsSubtotalAmountMicros},
adjustmentsTaxAmountMicros
=>
$args
->{adjustmentsTaxAmountMicros},
adjustmentsTotalAmountMicros
=>
$args
->{adjustmentsTotalAmountMicros},
billingSetup
=>
$args
->{billingSetup},
correctedInvoice
=>
$args
->{correctedInvoice},
currencyCode
=>
$args
->{currencyCode},
dueDate
=>
$args
->{dueDate},
id
=>
$args
->{id},
issueDate
=>
$args
->{issueDate},
paymentsAccountId
=>
$args
->{paymentsAccountId},
paymentsProfileId
=>
$args
->{paymentsProfileId},
pdfUrl
=>
$args
->{pdfUrl},
regulatoryCostsSubtotalAmountMicros
=>
$args
->{regulatoryCostsSubtotalAmountMicros},
regulatoryCostsTaxAmountMicros
=>
$args
->{regulatoryCostsTaxAmountMicros},
regulatoryCostsTotalAmountMicros
=>
$args
->{regulatoryCostsTotalAmountMicros},
replacedInvoices
=>
$args
->{replacedInvoices},
resourceName
=>
$args
->{resourceName},
serviceDateRange
=>
$args
->{serviceDateRange},
subtotalAmountMicros
=>
$args
->{subtotalAmountMicros},
taxAmountMicros
=>
$args
->{taxAmountMicros},
totalAmountMicros
=>
$args
->{totalAmountMicros},
type
=>
$args
->{type}};
remove_unassigned_fields(
$self
,
$args
);
bless
$self
,
$class
;
return
$self
;
}
1;