use
5.008_005;
my
$arg_transformer
= make_arg_transformer(
method_name
=>
'update'
,
to_marshall
=> [
'ExpressionAttributeValues'
,
'Key'
],
);
sub
transform_arguments {
my
$class
=
shift
;
my
%args
=
@_
;
return
map
{
$_
=>
$arg_transformer
->(
$_
,
$args
{
$_
}) }
keys
%args
;
}
sub
transform_output {
my
(
$class
,
$output
) =
@_
;
if
(
$output
->Attributes) {
my
$item
= unmarshal_attribute_map(
$output
->Attributes);
return
$item
if
%$item
;
}
return
undef
;
}
sub
run_service_command {
my
(
$class
,
$service
,
%args
) =
@_
;
return
$service
->UpdateItem(
%args
);
}
1;