File Coverage

blib/lib/SQL/Maker/SQLType.pm

Criterion	Covered	Total	%
statement	19	28	67.8
branch	1	4	25.0
condition			n/a
subroutine	8	10	80.0
pod	0	6	0.0
total	28	48	58.3

package SQL::Maker::SQLType;
use strict;
use warnings;
use utf8;
use Exporter qw/import/;

our @EXPORT_OK = qw/sql_type/;

sub sql_type {
    my ($value_ref, $type) = @_;
    SQL::Maker::SQLType->new(value_ref => $value_ref, type => $type);
}

sub new {
    my $class = shift;
    my %args = @_==1 ? %{$_[0]} : @_;
    bless {%args}, $class;
}

sub value_ref { $_[0]->{value_ref} }
sub type      { $_[0]->{type} }

sub as_sql {
    my ($self, $supplied_colname, $quote_cb) = @_;
    my $stmt;
    if (defined $supplied_colname) {
        $stmt = $quote_cb->($supplied_colname) . ' = ?';
    } else {
        $stmt = '?';
    }
    return $stmt;
}

sub bind {
    my $self = shift;
    return $self;
}

1;
__END__