File Coverage

blib/lib/PawsX/DynamoDB/DocumentClient/Delete.pm
Criterion Covered Total %
statement 16 18 88.8
branch 2 2 100.0
condition n/a
subroutine 5 6 83.3
pod 0 3 0.0
total 23 29 79.3


line stmt bran cond sub pod time code
1             package PawsX::DynamoDB::DocumentClient::Delete;
2              
3 1     1   654 use strict;
  1         3  
  1         23  
4 1     1   19 use 5.008_005;
  1         4  
5              
6 1     1   5 use PawsX::DynamoDB::DocumentClient::Util qw(make_arg_transformer unmarshal_attribute_map);
  1         2  
  1         157  
7              
8             my $arg_transformer = make_arg_transformer(
9             method_name => 'delete',
10             to_marshall => ['ExpressionAttributeValues', 'Key'],
11             );
12              
13             sub transform_arguments {
14 3     3 0 1747 my $class = shift;
15 3         15 my %args = @_;
16 3         10 return map { $_ => $arg_transformer->($_, $args{$_}) } keys %args;
  6         62  
17             }
18              
19             sub transform_output {
20 2     2 0 3889 my ($class, $output) = @_;
21 2         54 my $attributes = $output->Attributes;
22 2 100       24 return undef unless $attributes;
23 1         6 return unmarshal_attribute_map($attributes);
24             }
25              
26             sub run_service_command {
27 0     0 0   my ($class, $service, %args) = @_;
28 0           return $service->DeleteItem(%args);
29             }
30              
31             1;
32             __END__