view release on metacpan or  search on metacpan

lib/SQL/Admin/Driver/DB2/Parser.pm  view on Meta::CPAN

use warnings;

our $VERSION = v0.5.0;

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

use SQL::Admin::Utils qw( refhash refarray );

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

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

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

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

lib/SQL/Admin/Driver/Pg/Parser.pm  view on Meta::CPAN

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;
}