summaryrefslogtreecommitdiff
path: root/bin/print-schema
blob: 886e3250bd7102006bed19196d39228355b04e69 (plain)
1
2
3
4
5
6
7
#!/usr/bin/perl

use DBIx::DBSchema;

$l = load DBIx::DBSchema "/usr/local/etc/freeside/dbdef.DBI:Pg:dbname=freeside";

print $l->pretty_print, "\n";