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   602315 use utf8;
  3         271  
  3         22  
4 3     3   143 use 5.016;
  3         10  
5 3     3   42 use strict;
  3         5  
  3         65  
6 3     3   9 use warnings;
  3         5  
  3         237  
7              
8             $Geoffrey::Action::Sql::VERSION = '0.000206';
9              
10 3     3   25 use parent 'Geoffrey::Role::Action';
  3         4  
  3         20  
11              
12             sub add {
13 2     2 1 1035 my ( $self, $params ) = @_;
14 2         5 print {*STDERR}
  2         78  
15             'WARNING: Execute sql statements can lead very likely to incompatibilities.', $/;
16 2         30 return $self->do( $params->{as} );
17             }
18              
19             1;
20              
21             __END__