1 package SQL::Translator::Parser;
3 #-----------------------------------------------------
4 # $Id: Parser.pm,v 1.1.1.1 2002-03-01 02:26:25 kycl4rk Exp $
6 # File : SQL/Translator/Parser.pm
7 # Programmer : Ken Y. Clark, kclark@logsoft.com
9 # Purpose : base object for parsers
10 #-----------------------------------------------------
13 use vars qw( $VERSION );
14 $VERSION = (qw$Revision: 1.1.1.1 $)[-1];
16 use Parse::RecDescent;
18 use base qw[ SQL::Translator ];
22 # Override this method if you intend not to use Parse::RecDescent
25 return $self->parser->file( shift() );
30 unless ( $self->{'parser'} ) {
31 $self->{'parser'} = Parse::RecDescent->new( $self->grammar );
33 return $self->{'parser'};
38 #-----------------------------------------------------
39 # Enough! or Too much.
41 #-----------------------------------------------------
45 SQL::Translator::Parser - base object for parsers
49 package SQL::Translator::Parser::Foo;
50 use SQL::Translator::Parser;
51 use base( 'SQL::Translator::Parser' );
60 Ken Y. Clark, kclark@logsoft.com