#!/usr/bin/perl
use strict; use warnings;

use Parser qw/Postgres/;

my $wadl_file = shift or die "usage: $0 wadl_file\n";

my $tree = WADL::Parser->parse_file($wadl_file);

$tree->build_sql( );

