File Coverage

blib/lib/SQL/Concrete/Dollars.pm

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

use 5.006; use strict; use warnings;

package SQL::Concrete::Dollars;

our $VERSION = '1.004';

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;

our $VERSION = '1.004';

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__