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   2163 use utf8;
  3         19  
  3         23  
4 3     3   144 use 5.016;
  3         11  
5 3     3   16 use strict;
  3         6  
  3         62  
6 3     3   15 use warnings;
  3         6  
  3         161  
7              
8             $Geoffrey::Action::Sql::VERSION = '0.000203';
9              
10 3     3   478 use parent 'Geoffrey::Role::Action';
  3         397  
  3         21  
11              
12             sub add {
13 2     2 1 951 my ( $self, $params ) = @_;
14 2         5 print {*STDERR}
  2         84  
15             'WARNING: Execute sql statements can lead very likely to incompatibilities.', $/;
16 2         32 return $self->do( $params->{as} );
17             }
18              
19             1;
20              
21             __END__