move SQL::Schema:: to IO::Adapter::SQL::

2 files changed, 0 insertions, 77 deletions

diff --git a/fml/lib/SQL/Schema/Makefile b/fml/lib/SQL/Schema/Makefile
deleted file mode 100644
index 795737fa..00000000
--- a/fml/lib/SQL/Schema/Makefile
+++ /dev/null
@@ -1,6 +0,0 @@
-all: html
-
-html:	index.ja.html
-
-index.ja.html: *pm
-	../../../../doc/bin/dir2url.pl > index.ja.html
diff --git a/fml/lib/SQL/Schema/toymodel.pm b/fml/lib/SQL/Schema/toymodel.pm
deleted file mode 100644
index 43caf067..00000000
--- a/fml/lib/SQL/Schema/toymodel.pm
+++ /dev/null
@@ -1,71 +0,0 @@
-#-*- perl -*-
-#
-# Copyright (C) 2000,2001 Ken'ichi Fukamachi
-#          All rights reserved. 
-#
-# $FML$
-#
-
-
-package SQL::Schema::toymodel;
-
-use strict;
-use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
-use Carp;
-
-=head1 NAME
-
-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
-
-=head2 C<build_sql_query($args)>
-
-    $args = {
-	query   => 'add',
-	address => 'rudo@nuinui.net',
-	_params => {
-	    ml_name => 'elena',
-	    file    => 'actives',
-	},
-    }
-
-=cut
-
-
-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 $table   = $self->{ _table };
-
-    print STDERR "build_sql_query( query=$query )\n" if $ENV{'debug'};
-
-    if ($query eq 'add') {
-	"insert into $table values ('$ml_name', '$file', '$address', 0, 0)";
-    }
-    elsif ($query eq 'delete') {
-	"delete from $table where ml='$ml_name' and address='$address'";
-    }
-    else {
-	"select address from $table where ml='$ml_name' and file='$file'";
-    }
-}
-
-
-1;