From 5cde1627879fdbb147977caab63e3f339004860b Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Sun, 18 Mar 2001 04:40:26 +0000
Subject: modify MySQL adapter interface move model specific part to
 SQL::Schema class remove IO::Adapter::MySQL class

---
 fml/lib/SQL/Schema/toymodel.pm | 13 +++++++++++--
 1 file changed, 11 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 911bb1d5..5ae90645 100644
--- a/fml/lib/SQL/Schema/toymodel.pm
+++ b/fml/lib/SQL/Schema/toymodel.pm
@@ -7,7 +7,7 @@
 #
 
 
-package IO::Adapter::MySQL::toymodel;
+package SQL::Schema::toymodel;
 
 use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
@@ -15,15 +15,24 @@ use Carp;
 
 =head1 NAME
 
-IO::Adapter::MySQL::toymodel - toymodel by SQL
+SQL::Schema::toymodel - SQL statement dependent on toymodel
 
 =head1 SYNOPSIS
 
+  use SQL::Schema::toymodel;
+  $obj = new SQL::Schema::toymodel;
+
 =head1 DESCRIPTION
 
+SQL::Schema modules hold SQL statement dependent on each specific
+model.
+
 =head1 METHODS
 
 =cut
 
+sub new
+{
+}
 
 1;
-- 
cgit v1.2.1