File Coverage

blib/lib/SQL/Concrete/Dollars.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod	1	1	100.0
total	32	32	100.0

use 5.006;
use strict;
use warnings;

package SQL::Concrete::Dollars;
$SQL::Concrete::Dollars::VERSION = '1.002';
# ABSTRACT: use SQL::Concrete with dollar placeholders

use SQL::Concrete ':noncore';
BEGIN { our @ISA = 'SQL::Concrete' } # inherit import()

sub sql_render { SQL::Concrete::Renderer::Dollars->new->render( @_ ) }

package SQL::Concrete::Renderer::Dollars;
$SQL::Concrete::Renderer::Dollars::VERSION = '1.002';
BEGIN { our @ISA = 'SQL::Concrete::Renderer' }

sub render {
	my $self = shift;
	local $self->{'placeholder_id'} = 0;
	$self->SUPER::render( @_ );
}

sub render_bind {
	my $self = shift;
	push @{ $self->{'bind'} }, $_[0];
	'$'.++$self->{'placeholder_id'};
}

1;

__END__