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__