git.freeside.biz Git - freeside.git/blob

   1 #!/usr/bin/perl
   2
   3 use DBIx::DBSchema;
   4
   5 $l = load DBIx::DBSchema "/usr/local/etc/freeside/dbdef.DBI:Pg:dbname=freeside";
   6
   7 print $l->pretty_print, "\n";