Lines Matching refs:me
33 my ($me, $caller, $sql, @args) = @_;
39 } => $me;
109 my $me = shift;
110 my $sql = $me->{_sql};
111 my @args = @{ $me->{_args} };
112 my $caller = $me->{_caller};
114 $sql =~ s/__TABLE\(?(.*?)\)?__/$me->_expand_table($1)/eg;
115 $sql =~ s/__JOIN\((.*?)\)__/$me->_expand_join($1)/eg;
124 $me->{_transformed_sql} = $sql;
125 $me->{_transformed_args} = [@args];
126 $me->{_transformed} = 1;