1 package Producer::BaseTest;
4 # A trivial little sub-class to test sub-classing the TT::Base producer.
7 use base qw/SQL::Translator::Producer::TT::Base/;
9 # Make sure we use our new class as the producer
10 sub produce { return __PACKAGE__->new( translator => shift )->run; };
12 # Note: we don't need to impliment tt_schema as the default will use the DATA
15 sub tt_vars { ( foo => "bar" ); }
17 sub tt_config { ( INTERPOLATE => 1 ); }
23 Tables: [% schema.get_tables %]
24 [% table = schema.get_tables.first -%]
28 Fields: $table.field_names.join