use
strict;
use
5.008_005;
make_arg_transformer
)
;
my
$arg_transformer
= make_arg_transformer(
method_name
=>
'scan'
,
to_marshall
=> QueryOrScan->to_marshall,
);
sub
transform_arguments {
my
$class
=
shift
;
my
%args
=
@_
;
return
map
{
$_
=>
$arg_transformer
->(
$_
,
$args
{
$_
}) }
keys
%args
;
}
sub
transform_output {
my
$class
=
shift
;
return
QueryOrScan->transform_output(
@_
);
}
sub
run_service_command {
my
(
$class
,
$service
,
%args
) =
@_
;
return
$service
->Scan(
%args
);
}
1;
__END__