removing old 5.005 install stuff

[freeside.git] / install / 5.005 / DBIx-DBSchema-0.23-5.005kludge / DBSchema / DBD.pm

diff --git a/install/5.005/DBIx-DBSchema-0.23-5.005kludge/DBSchema/DBD.pm b/install/5.005/DBIx-DBSchema-0.23-5.005kludge/DBSchema/DBD.pm
deleted file mode 100644 (file)
index a4c6000..0000000
--- a/install/5.005/DBIx-DBSchema-0.23-5.005kludge/DBSchema/DBD.pm
+++ /dev/null
@@ -1,113 +0,0 @@
-package DBIx::DBSchema::DBD;
-
-use strict;
-use vars qw($VERSION);
-
-$VERSION = '0.02';
-
-=head1 NAME
-
-DBIx::DBSchema::DBD - DBIx::DBSchema Driver Writer's Guide and Base Class
-
-=head1 SYNOPSIS
-
-  perldoc DBIx::DBSchema::DBD
-
-  package DBIx::DBSchema::DBD::FooBase
-  use DBIx::DBSchmea::DBD;
-  @ISA = qw(DBIx::DBSchema::DBD);
-
-=head1 DESCRIPTION
-
-Drivers should be named DBIx::DBSchema::DBD::DatabaseName, where DatabaseName
-is the same as the DBD:: driver for this database.  Drivers should implement the
-following class methods:
-
-=over 4
-
-=item columns CLASS DBI_DBH TABLE
-
-Given an active DBI database handle, return a listref of listrefs (see
-L<perllol>), each containing six elements: column name, column type,
-nullability, column length, column default, and a field reserved for
-driver-specific use.
-
-=item column CLASS DBI_DBH TABLE COLUMN
-
-Same as B<columns> above, except return the listref for a single column.  You
-can inherit from DBIx::DBSchema::DBD to provide this function.
-
-=cut
-
-sub column {
-  my($proto, $dbh, $table, $column) = @_;
-  #@a = grep { $_->[0] eq $column } @{ $proto->columns( $dbh, $table ) };
-  #$a[0];
-  @{ [
-    grep { $_->[0] eq $column } @{ $proto->columns( $dbh, $table ) }
-  ] }[0]; #force list context on grep, return scalar of first element
-}
-
-=item primary_key CLASS DBI_DBH TABLE
-
-Given an active DBI database handle, return the primary key for the specified
-table.
-
-=item unique CLASS DBI_DBH TABLE
-
-Given an active DBI database handle, return a hashref of unique indices.  The
-keys of the hashref are index names, and the values are arrayrefs which point
-a list of column names for each.  See L<perldsc/"HASHES OF LISTS"> and
-L<DBIx::DBSchema::ColGroup>.
-
-=item index CLASS DBI_DBH TABLE
-
-Given an active DBI database handle, return a hashref of (non-unique) indices.
-The keys of the hashref are index names, and the values are arrayrefs which
-point a list of column names for each.  See L<perldsc/"HASHES OF LISTS"> and
-L<DBIx::DBSchema::ColGroup>.
-
-=back
-
-=head1 TYPE MAPPING
-
-You can define a %typemap array for your driver to map "standard" data    
-types to database-specific types.  For example, the MySQL TIMESTAMP field
-has non-standard auto-updating semantics; the MySQL DATETIME type is 
-what other databases and the ODBC standard call TIMESTAMP, so one of the   
-entries in the MySQL %typemap is:
-
-  'TIMESTAMP' => 'DATETIME',
-
-Another example is the Pg %typemap which maps the standard types BLOB and
-LONG VARBINARY to the Pg-specific BYTEA:
-
-  'BLOB' => 'BYTEA',
-  'LONG VARBINARY' => 'BYTEA',
-
-Make sure you use all uppercase-keys.
-
-=head1 AUTHOR
-
-Ivan Kohler <ivan-dbix-dbschema@420.am>
-
-=head1 COPYRIGHT
-
-Copyright (c) 2000 Ivan Kohler
-Copyright (c) 2000 Mail Abuse Prevention System LLC
-All rights reserved.
-This program is free software; you can redistribute it and/or modify it under
-the same terms as Perl itself.
-
-=head1 BUGS
-
-=head1 SEE ALSO
-
-L<DBIx::DBSchema>, L<DBIx::DBSchema::DBD::mysql>, L<DBIx::DBSchema::DBD::Pg>,
-L<DBIx::DBSchema::ColGroup>, L<DBI>, L<DBI::DBD>, L<perllol>,
-L<perldsc/"HASHES OF LISTS">
-
-=cut 
-
-1;
-