diff options
Diffstat (limited to 'fml/lib/SQL')
| -rw-r--r-- | fml/lib/SQL/Schema/toymodel.pm | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/fml/lib/SQL/Schema/toymodel.pm b/fml/lib/SQL/Schema/toymodel.pm index c4faf041..a0029700 100644 --- a/fml/lib/SQL/Schema/toymodel.pm +++ b/fml/lib/SQL/Schema/toymodel.pm @@ -1,6 +1,6 @@ #-*- perl -*- # -# Copyright (C) 2000 Ken'ichi Fukamachi +# Copyright (C) 2000,2001 Ken'ichi Fukamachi # All rights reserved. # # $Id$ @@ -29,6 +29,17 @@ model. =head1 METHODS +=head2 C<build_sql_query($args)> + + $args = { + query => 'add', + address => 'rudo@nuinui.net', + _params => { + ml_name => 'elena', + file => 'actives', + }, + } + =cut @@ -36,9 +47,11 @@ sub build_sql_query { my ($self, $args) = @_; my $query = $args->{ query }; + my $address = $args->{ address }; + + # inherit parameter from object my $ml_name = $self->{ _params }->{ ml_name }; my $file = $self->{ _params }->{ file }; - my $address = $args->{ address }; my $table = $self->{ _table }; print STDERR "build_sql_query( query=$query )\n" if $ENV{'debug'}; |