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__ |