1 package SQL::Translator::Producer;
3 #-----------------------------------------------------
4 # $Id: Producer.pm,v 1.1.1.1 2002-03-01 02:26:25 kycl4rk Exp $
6 # File : SQL/Translator/Producer.pm
7 # Programmer : Ken Y. Clark, kclark@logsoft.com
9 # Purpose : base object for Producers
10 #-----------------------------------------------------
13 use vars qw( $VERSION );
14 $VERSION = (qw$Revision: 1.1.1.1 $)[-1];
17 use base qw[ SQL::Translator ];
19 sub from { return shift()->{'from'} }
23 my $from = $self->from || '';
24 my $to = $self->to || '';
27 # $from-to-$to translator
28 # Version: $SQL::Translator::VERSION
36 #-----------------------------------------------------
37 # A burnt child loves the fire.
39 #-----------------------------------------------------
43 SQL::Translator::Producer - base object for Producers
47 package SQL::Translator::Producer::Foo;
48 use SQL::Translator::Producer;
49 use base( 'SQL::Translator::Producer' );
54 Intended to serve as a base class for all SQL Translator producers.
58 Ken Y. Clark, kclark@logsoft.com