[dbsrgits/SQL-Translator.git] / t / lib / Producer / BaseTest.pm

package Producer::BaseTest;

#
# A trivial little sub-class to test sub-classing the TT::Base producer.
#

use base qw/SQL::Translator::Producer::TT::Base/;

# Make sure we use our new class as the producer
sub produce { return __PACKAGE__->new( translator => shift )->run; };

# Note: we don't need to impliment tt_schema as the default will use the DATA
# section by default.

sub tt_vars { ( foo => "bar" ); }

sub tt_config { ( INTERPOLATE => 1 ); }

1;

__DATA__
Hello World
Tables: [% schema.get_tables.join(', ') %]
[% FOREACH table IN schema.get_tables -%]

$table
------
Fields: $table.field_names.join
[% END %]
Commit	Line	Data
f5f03b78	1	package Producer::BaseTest;
f5f03b78	2
53ec8b7d	3	#
	4	# A trivial little sub-class to test sub-classing the TT::Base producer.
	5	#
	6
f5f03b78	7	use base qw/SQL::Translator::Producer::TT::Base/;
	8
	9	# Make sure we use our new class as the producer
	10	sub produce { return __PACKAGE__->new( translator => shift )->run; };
	11
f28712a4	12	# Note: we don't need to impliment tt_schema as the default will use the DATA
f28712a4	13	# section by default.
f5f03b78	14
	15	sub tt_vars { ( foo => "bar" ); }
	16
53ec8b7d	17	sub tt_config { ( INTERPOLATE => 1 ); }
53ec8b7d	18
f5f03b78	19	1;
	20
	21	__DATA__
	22	Hello World
b08b5416	23	Tables: [% schema.get_tables.join(', ') %]
b08b5416	24	[% FOREACH table IN schema.get_tables -%]
53ec8b7d	25
	26	$table
	27	------
	28	Fields: $table.field_names.join
b08b5416	29	[% END %]