File Coverage

blib/lib/PawsX/DynamoDB/DocumentClient/Query.pm

Criterion	Covered	Total	%
statement	17	19	89.4
branch			n/a
condition			n/a
subroutine	6	7	85.7
pod	0	3	0.0
total	23	29	79.3

package PawsX::DynamoDB::DocumentClient::Query;

use strict;
use 5.008_005;

use aliased 'PawsX::DynamoDB::DocumentClient::QueryOrScan';

use PawsX::DynamoDB::DocumentClient::Util qw(
    make_arg_transformer
);

my $arg_transformer = make_arg_transformer(
    method_name => 'query',
    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->Query(%args);
}

1;
__END__