The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

package SQL::Admin::Driver::Pg::Parser;
use base qw( SQL::Admin::Driver::Base::Parser );

use strict;
use warnings;

our $VERSION = v0.5.0;

######################################################################
######################################################################

my $grammar = require SQL::Admin::Driver::Pg::Grammar;
my $cached;

######################################################################
######################################################################
sub new {                                # ;
    my $class = shift;

    $cached ||= $class->SUPER::new (@_);
    bless { @_, parser => $cached->{parser} }, ref $class || $class;
}


######################################################################
######################################################################
sub grammar {                             # ;
    $grammar;
}


######################################################################
######################################################################

package SQL::Admin::Driver::Pg::Parser;

1;