File Coverage

blib/lib/DBIx/Simple/Interpol.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	0	1	0.0
total	34	35	97.1

use 5.006; use strict; no warnings;

package DBIx::Simple::Interpol;

our $VERSION = '1.006';

use SQL::Interpol ();
use DBIx::Simple ();

sub import {
	shift;
	my $prelude = sprintf qq'package %s;\n#line %d "%s"\n', ( caller )[0,2,1];
	my $sub = eval qq{ sub { $prelude SQL::Interpol->import(\@_) } };
	&$sub;
}

sub iquery {
	my $self = shift;
	my $p = SQL::Interpol::Parser->new;
	my $sql = $p->parse( @_ );
	$self->query( $sql, @{ $p->bind } );
}

die 'Cannot find method to patch' if not DBIx::Simple->can( 'iquery' );

do { no warnings 'redefine'; *DBIx::Simple::iquery = \&iquery };

__END__