diff options
| author | fukachan <fukachan> | 2001-06-10 10:20:45 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-06-10 10:20:45 +0000 |
| commit | 7d100264621de7703c4de1a98cd8270f2f291281 (patch) | |
| tree | 12c8d968dabbd520eeb5b26f97a9a10698fe4773 /fml | |
| parent | 9c190b8baf2a5975ae9b77729c09404276773bff (diff) | |
| download | fml8-7d100264621de7703c4de1a98cd8270f2f291281.tar.gz fml8-7d100264621de7703c4de1a98cd8270f2f291281.tar.bz2 fml8-7d100264621de7703c4de1a98cd8270f2f291281.zip | |
clean up temporary variables
Diffstat (limited to 'fml')
| -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'}; |