GraphViz::DBI::General - graph table relationships from a DBI handle
use GraphViz::DBI::General; my $gbdh = GraphViz::DBI::General->new($dbh); $gbdh->schema('public'); # default used by Postgresql $gbdh->catalog( undef ); open my $fh, ">", $diagram_file or die "Couldn't open $diagram_file: $!"; $gbdh->graph_tables->as_png($fh);
This is a subclass of GraphViz::DBI. It can be used to generate a graph of foreign key relationships between the tables of a database, given a database handle (and perhaps a schema name and/or a catalog name). It should work for any database with a driver that supports the foreign_key_info method (such as Postgresql, versions 7.3 and later).
Note that foreign_key_info is labeled as "experimental" in the DBI documentation: if it's behavior changes in the future, it may cause problems for this code.
Currently this module has been tested with:
Version -----------|-------- Postgresql | 8.0.1 DBI | 1.48 DBD::Pg | 1.40 Linux | 2.4.20
If you're so inclined, please do report your experiences with using it in other environments. Future versions will include a summary of this information.
Please send the output of the version_report method along with your reports:
my $gbdh = GraphViz::DBI::General->new($dbh); print $gbdh->version_report;
The settings you will most likely want to use with the postgresql database are as indicated in the SYNOPSIS above:
$gbdh->schema('public'); $gbdh->catalog( undef );
You might, however have a different schema name you need to work with (your login name is a common choice on many systems).
The catalog concept is not implemented in postgresql, so it's shown here set to undef, but this may be different for your own database.
For some databases you might not need any schema or catalog setting, and both should be undef.
This module was inspired by GraphViz::DBI, which generates a graph of table relationships given only a DBI handle. Unfortunately, however, it relies on a naming convention to find foreign key relationships, and has no concept of schemas (or catalogs), which makes it unusable with a database such as Postgresql (for Postgresql, it draws tables for the entire pg_catalog and information_schema, generating huge output graphs).
GraphViz::DBI::General behaves exactly like GraphViz::DBI, except that it restricts it's scope to a given catalog and schema (if these are applicable), and also uses the DBI method foreign_key_info to find foreign keys rather than relying on some arbitrary naming convention.
In theory, this makes GraphViz::DBI::General more general, and it should be usable with any database with a fully-featured DBD driver; but in fact, I'm not certain how widespread foreign_key_info support is (or will be). At the very least GraphViz::DBI::General works with PostgreSQL, which the original GraphViz::DBI definitely does not.
o Methods for specifying the schema and catalog (when applicable). o A get_tables method with scope restricted by schema & catalog. o A version of the is_foreign_key method that does not rely on naming conventions.
See GraphViz::DBI and GraphViz for documentation of the other available methods.
In detail, the methods provided by GraphViz::DBI::General are:
This module is sadly lacking in tests, because it's difficult to write portable tests for it: What databases exist? Do I have access permissions to do a "CREATE DATABASE"? (On what databases is a "CREATE DATABASE" supported?) Does the system have the necessary fonts to generate the same graph image that I have? (Do fonts of the same name always look the same on different systems? I've seen signs that the answer to that is "no, not always".) Still, I ought to be able to do better than no tests at all, e.g. I ought to be able to write postgresql specific tests that are just skipped if not applicable.
This module inherits from:
It uses a GraphViz handle (you can look up alternatives to "as_png" in the GraphViz documentation):
The constructor for this module takes a DBI database handle as an argument:
Additional information about GraphViz::DBI::General may be available at the web site:
Note that there's another module that performs a similar job, though it's restricted to projects implemented with Class::DBI:
Joseph Brenner, <firstname.lastname@example.org>
Copyright (C) 2005 by Joseph Brenner
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.2 or, at your option, any later version of Perl 5 you may have available.
None reported... yet.