File Coverage

lib/SQL/Admin/Driver/DB2/Parser.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition	2	6	33.3
subroutine	6	6	100.0
pod	0	2	0.0
total	24	30	80.0

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

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


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


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

package SQL::Admin::Driver::DB2::Parser;

1;