File Coverage

blib/lib/DBIx/Simple/Concrete.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 1 0.0
total 26 27 96.3


line stmt bran cond sub pod time code
1 1     1   624 use 5.006; use strict; use warnings;
  1     1   2  
  1     1   6  
  1         1  
  1         19  
  1         4  
  1         2  
  1         62  
2              
3             package DBIx::Simple::Concrete;
4              
5             our $VERSION = '1.006';
6              
7 1     1   330 use DBIx::Simple ();
  1         8  
  1         21  
8 1     1   411 use SQL::Concrete ();
  1         3606  
  1         127  
9              
10             sub import {
11 1     1   1301 shift;
12 1         9 my $prelude = sprintf qq'package %s;\n#line %d "%s"\n', ( caller )[0,2,1];
13 1         79 my $sub = eval qq{ sub { $prelude SQL::Concrete->import(\@_) } };
14 1         13 &$sub;
15             }
16              
17 1     1 0 1054 sub cquery { shift->query( SQL::Concrete::Renderer->new->render( @_ ) ) }
18              
19             die 'Too late to patch DBIx::Simple' if DBIx::Simple->can( 'cquery' );
20              
21             *DBIx::Simple::cquery = \&cquery;
22              
23             __END__