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   468 use 5.006; use strict; use warnings;
  1     1   3  
  1     1   5  
  1         1  
  1         16  
  1         4  
  1         1  
  1         35  
2              
3             package DBIx::Simple::Concrete;
4              
5             our $VERSION = '1.007';
6              
7 1     1   872 use DBIx::Simple ();
  1         10  
  1         22  
8 1     1   373 use SQL::Concrete ();
  1         3376  
  1         106  
9              
10             sub import {
11 1     1   851 shift;
12 1         6 my $prelude = sprintf qq'package %s;\n#line %d "%s"\n', ( caller )[0,2,1];
13 1         44 my $sub = eval qq{ sub { $prelude SQL::Concrete->import(\@_) } };
14 1         11 &$sub;
15             }
16              
17 1     1 0 843 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__