| /usr/local/perl/lib/site_perl/5.8.5/DB/Introspector/Base/Index.pm |
DB::Introspector::Base::Index
use DB::Introspector;
my $introspector = DB::Introspector->get_instance($dbh);
my $table = $introspector->find_table('users');
foreach my $index ($table->indexes) {
print "INDEX (". join(",", $index->column_names). ")\n";
}
=head1 DESCRIPTION
DB::Introspector::Base::Index is a class that represents a table's index.
Returns: an array (@) of column names in the order in which the index was declared.
Params:
$table - a DB::Introspector::Base::Table instance
$is_unique - a boolean describing whether or not this index is a unique index (meaning it requires all of its elemets to be unique.
Returns: an instance of a DB::Introspector::Base::Index
Returns: The table that this index is apart of.
Returns: whether or not this is a unique index
the DB::Introspector::Base::Table manpage
Masahji C. Stewart
The DB::Introspector::Base::Index module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
| /usr/local/perl/lib/site_perl/5.8.5/DB/Introspector/Base/Index.pm |