summaryrefslogtreecommitdiff
path: root/install/5.005/DBIx-DBSchema-0.23-5.005kludge/DBSchema/DBD.pm
diff options
context:
space:
mode:
Diffstat (limited to 'install/5.005/DBIx-DBSchema-0.23-5.005kludge/DBSchema/DBD.pm')
-rw-r--r--install/5.005/DBIx-DBSchema-0.23-5.005kludge/DBSchema/DBD.pm113
1 files changed, 0 insertions, 113 deletions
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
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;
-