use RDBAL;
use RDBAL::Schema;
use strict;

# generic RDBALL::Connect
# $X = RDBAL::Connect('username', 'password', 'server') or die ("cant connect: $!");

# here i'm using ODBC to get to a MSSQL database
my $X = RDBAL::Connect('user','password', 'dsn_name', 'ODBC', 'database') or die ("cant connect: $!");

print "rdbal connected\n";

my $schema = new RDBAL::Schema ($X,'visao') or die ("cant make schema for visao : $!");

my $database = $schema->Database() or die ("cant get database from schema : $!");
my @user_tables = $schema->User_Tables() or die ("cant get user tables from schema : $!");
my @procedures = $schema->Procedures() or die ("cant get procedures from schema : $!");


foreach my $t (@user_tables) { print "[table] : $t\n"; }
foreach my $p (@procedures) { 
  print "[procedure] : $p\n"; 
  my $comments = $schema->Comments($p);
  print "[procedure code] : $comments\n";
}
print "that's all, folks.\n"