File Coverage

blib/lib/DBIx/Simple/Concrete.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	29	30	96.6

use 5.006;
use strict;
no warnings;

package DBIx::Simple::Concrete;
$DBIx::Simple::Concrete::VERSION = '1.001';
# ABSTRACT: monkey-patch DBIx::Simple to use SQL::Concrete

BEGIN {
	require SQL::Concrete;
	require DBIx::Simple;
	require Import::Into;
	die 'Too late to patch DBIx::Simple' if DBIx::Simple->can( 'cquery' );
	*DBIx::Simple::cquery = sub {
		use warnings; # limited scope to avoid "Subroutine redefined"
		my $self = shift;
		return $self->query( SQL::Concrete::Renderer->new->render( @_ ) );
	};
}

sub import { shift; SQL::Concrete->import::into( scalar caller, @_ ) }

1;

__END__