From 7d100264621de7703c4de1a98cd8270f2f291281 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Sun, 10 Jun 2001 10:20:45 +0000
Subject: clean up temporary variables

---
 fml/lib/SQL/Schema/toymodel.pm | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

(limited to 'fml/lib/SQL')

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'};
-- 
cgit v1.2.1