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   1945 use utf8;
  3         19  
  3         19  
4 3     3   134 use 5.016;
  3         11  
5 3     3   17 use strict;
  3         5  
  3         60  
6 3     3   14 use warnings;
  3         6  
  3         145  
7              
8             $Geoffrey::Action::Sql::VERSION = '0.000205';
9              
10 3     3   457 use parent 'Geoffrey::Role::Action';
  3         317  
  3         20  
11              
12             sub add {
13 2     2 1 1450 my ( $self, $params ) = @_;
14 2         6 print {*STDERR}
  2         183  
15             'WARNING: Execute sql statements can lead very likely to incompatibilities.', $/;
16 2         191 return $self->do( $params->{as} );
17             }
18              
19             1;
20              
21             __END__