Context Navigation

Changeset 99

Timestamp:

05/04/06 00:08:01 (4 years ago)

Author:

sky

Message:

r102@crucially-3 (orig r1086): mpaschal | 2006-01-17 16:04:46 -0800
Make _mk_term an overridable method

Files:

r86	r99
72	72	my($col, $val) = @_;
73	73	Carp::croak("Invalid/unsafe column name $col") unless $col =~ /^[\w\.]+$/;
74		my($term, $bind) = _mk_term($col, $val);
	74	my($term, $bind) = $stmt->_mk_term($col, $val);
75	75	push @{ $stmt->{where} }, "($term)";
76	76	push @{ $stmt->{bind} }, @$bind;
…	…
78	78
79	79	sub _mk_term {
	80	my $stmt = shift;
80	81	my($col, $val) = @_;
81	82	my $term = '';
…	…
89	90	my @terms;
90	91	for my $val (@$val) {
91		my($term, $bind) = _mk_term($col, $val);
	92	my($term, $bind) = $stmt->_mk_term($col, $val);
92	93	push @terms, $term;
93	94	push @bind, @$bind;