package
PawsX::DynamoDB::DocumentClient::Get;
use
strict;
use
5.008_005;
my
$arg_transformer
= make_arg_transformer(
method_name
=>
'get'
,
to_marshall
=> [
'Key'
],
);
sub
transform_arguments {
my
(
$class
,
%args
) =
@_
;
return
map
{
$_
=>
$arg_transformer
->(
$_
,
$args
{
$_
}) }
keys
%args
;
}
sub
transform_output {
my
(
$class
,
$output
) =
@_
;
my
$item
=
$output
->Item;
return
undef
unless
$item
;
return
unmarshal_attribute_map(
$item
);
}
sub
run_service_command {
my
(
$class
,
$service
,
%args
) =
@_
;
return
$service
->GetItem(
%args
);
}
1;
__END__