File Coverage

blib/lib/Geoffrey/Action/Sql.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 25 25 100.0


line stmt bran cond sub pod time code
1             package Geoffrey::Action::Sql;
2              
3 3     3   1946 use utf8;
  3         20  
  3         21  
4 3     3   143 use 5.016;
  3         12  
5 3     3   15 use strict;
  3         17  
  3         66  
6 3     3   16 use warnings;
  3         4  
  3         189  
7              
8             $Geoffrey::Action::Sql::VERSION = '0.000204';
9              
10 3     3   494 use parent 'Geoffrey::Role::Action';
  3         334  
  3         20  
11              
12             sub add {
13 2     2 1 1118 my ( $self, $params ) = @_;
14 2         5 print {*STDERR}
  2         212  
15             'WARNING: Execute sql statements can lead very likely to incompatibilities.', $/;
16 2         36 return $self->do( $params->{as} );
17             }
18              
19             1;
20              
21             __END__