File Coverage

blib/lib/Otogiri/Plugin/InsertAndFetch.pm
Criterion Covered Total %
statement 13 13 100.0
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 19 20 95.0


line stmt bran cond sub pod time code
1             package Otogiri::Plugin::InsertAndFetch;
2 2     2   1271 use 5.008005;
  2         6  
  2         61  
3 2     2   8 use strict;
  2         4  
  2         49  
4 2     2   10 use warnings;
  2         9  
  2         238  
5              
6             our $VERSION = "0.01";
7             our @EXPORT = qw/insert_and_fetch/;
8              
9             sub insert_and_fetch {
10 1     1 1 24904 my ($self, $table, $param, @opts) = @_;
11 1 50       9 if ($self->fast_insert($table, $param, @opts)) {
12 1         515 $param = $self->_deflate_param($table, $param);
13 1         23 return $self->single($table, $param, @opts);
14             }
15             }
16              
17             1;
18             __END__