File Coverage

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

Criterion	Covered	Total	%
statement	18	34	52.9
branch	0	6	0.0
condition	2	5	40.0
subroutine	6	11	54.5
pod	0	6	0.0
total	26	62	41.9

package SQL::Admin::Driver::Base::Parser;

use strict;
use warnings;

our $VERSION = v0.5.0;

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

use Parse::RecDescent;

our $AUTOLOAD;

my $parser_skip = '([ \t\r\n]*)|((--(.*)\n))*';

######################################################################
######################################################################
sub new {                                # ;
    my ($class, %param) = @_;
    my $grammar = $class->grammar || return;

    $::RD_HINT = 1;
    $Parse::RecDescent::skip = '([ \t\r\n]*)|((--(.*)\n))*';

    bless {
        %param,
        parser => Parse::RecDescent->new ($grammar),
    }, ref $class || $class;
}


######################################################################
######################################################################
sub configure {                          # ;
    my ($self, $key, $value) = @_;

    $self->{$key} = $value if @_ == 3;
    $self->{$key};
}


######################################################################
######################################################################
sub load {                               # ;
    my ($self) = @_;

    my $data = do {
        local $/;

        join ('', $self->{file} ? (map {
            open my $fh, '<', $_ or die "Unable open ${_}: $!\n";
            <$fh>
        } @{ $self->{file} } ) : <>);
    };

    $self->parse ($data);
}


######################################################################
######################################################################
sub parser {                             # ;
    shift->{parser};
}


######################################################################
######################################################################
sub parse {                              # ;
    my ($self, $data) = @_;

    $self->postprocess ($self->parser->parse_sql ($data));
}


######################################################################
######################################################################
sub postprocess {                        # ;
    shift; @_;
}


######################################################################
######################################################################
sub DESTROY {                            # ;
}


######################################################################
######################################################################
sub AUTOLOAD {                           # ;
    my ($self, @args) = @_;
    my $name = substr $AUTOLOAD, 2 + rindex $AUTOLOAD, '::';

    $self->parser->$name (@args);
}


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

package SQL::Admin::Driver::Base::Parser;

1;