File Coverage

blib/lib/PawsX/DynamoDB/DocumentClient/Scan.pm
Criterion Covered Total %
statement 18 20 90.0
branch n/a
condition n/a
subroutine 6 7 85.7
pod 0 3 0.0
total 24 30 80.0


line stmt bran cond sub pod time code
1             package PawsX::DynamoDB::DocumentClient::Scan;
2              
3 1     1   779 use strict;
  1         3  
  1         29  
4 1     1   24 use 5.008_005;
  1         4  
5              
6 1     1   437 use aliased 'PawsX::DynamoDB::DocumentClient::QueryOrScan';
  1         555  
  1         5  
7              
8 1         143 use PawsX::DynamoDB::DocumentClient::Util qw(
9             make_arg_transformer
10 1     1   77 );
  1         3  
11              
12             my $arg_transformer = make_arg_transformer(
13             method_name => 'scan',
14             to_marshall => QueryOrScan->to_marshall,
15             );
16              
17             sub transform_arguments {
18 4     4 0 2983 my $class = shift;
19 4         23 my %args = @_;
20 4         11 my $force_type = delete $args{force_type};
21             return map
22             {
23 4         10 $_ => $arg_transformer->($_, $args{$_}, $force_type)
  10         383  
24             }
25             keys %args;
26             }
27              
28             sub transform_output {
29 1     1 0 2333 my $class = shift;
30 1         19 return QueryOrScan->transform_output(@_);
31             }
32              
33             sub run_service_command {
34 0     0 0   my ($class, $service, %args) = @_;
35 0           return $service->Scan(%args);
36             }
37              
38             1;
39             __END__