NAME

SYNOPSIS

    use DBIx::Inspector;

    my $dbh = DBI->connect(...) or die;
    my $inspector = DBIx::Inspector->new(dbh => $dbh);
    my @tables = $inspector->tables;
    for my $table (@tables) {
        print "  pk:\n";
        for my $pk ($table->primary_key) {
            print "    ", $pk->name, "\n";
        }
        print "  columns:\n";
        for my $column ($table->columns) {
            print "    ", $column->name, "\n";
        }
    }

DESCRIPTION

This is under development. Any API will change without notice.

METHODS

"my $inspector = DBIx::Inspector->new(dbh => $dbh);"

Create new instance of DBIx::Inspector.

"my @tables = $inspector->tables();"

Retrieve table objects from $dbh. Every elements in @tables is instance of DBIx::Inspector::Table.

"my $table = $inspector->table($table_name);"

Retrieve table object from $dbh. Return value is instance of DBIx::Inspector::Table.

"my @views = $inspector->views();"

Retrieve view objects from $dbh. Every elements in @views is instance of DBIx::Inspector::Table.

"my $view = $inspector->view($view_name);"

Retrieve view object from $dbh. Return value is instance of DBIx::Inspector::Table.

AUTHOR

SEE ALSO

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.