File Coverage

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

Criterion	Covered	Total	%
statement	18	20	90.0
branch	3	4	75.0
condition			n/a
subroutine	5	6	83.3
pod	0	3	0.0
total	26	33	78.7

package PawsX::DynamoDB::DocumentClient::Put;

use strict;
use 5.008_005;

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

my $arg_transformer = make_arg_transformer(
    method_name => 'put',
    to_marshall => ['ExpressionAttributeValues', 'Item'],
);

sub transform_arguments {
    my $class = shift;
    my %args = @_;
    my $force_type = delete $args{force_type};
    return map
        {
            $_ => $arg_transformer->($_, $args{$_}, $force_type)
        }
        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->PutItem(%args);
}

1;
__END__