File Coverage

blib/lib/DBomb/Query/Text.pm

Criterion	Covered	Total	%
statement	21	25	84.0
branch	1	2	50.0
condition			n/a
subroutine	6	7	85.7
pod	1	2	50.0
total	29	36	80.5

package DBomb::Query::Text;

=head1 NAME

DBomb::Query::Text - Just a wrapper around plain sql.

=cut

use strict;
use warnings;
our $VERSION = '$Revision: 1.6 $';

use Carp::Assert;
use DBomb::Util qw(ctx_0);
use Class::MethodMaker
    'new_with_init' => 'new',
    'get_set' => [qw(text bind_values)],
  ;

sub init
{
    my ($self, $text, @bind_values) = @_;

        assert(UNIVERSAL::isa($self,__PACKAGE__));
        assert(defined($text),'valid parameters');

    $self->text($text);
    $self->bind_values([]);
    push @{$self->bind_values},@bind_values if @bind_values;
}

sub sql
{
    my ($self, $dbh) = @_;
    return ctx_0($self->text, @{$self->bind_values});
}


1;
__END__