t/lib/Producer/BaseTest.pm

   1 package Producer::BaseTest;
   2
   3 use base qw/SQL::Translator::Producer::TT::Base/;
   4
   5 # Make sure we use our new class as the producer
   6 sub produce { return __PACKAGE__->new( translator => shift )->run; };
   7
   8 sub tt_schema { local $/ = undef; return \<DATA>; }
   9
  10 sub tt_vars { ( foo => "bar" ); }
  11
  12 1;
  13
  14 __DATA__
  15 Hello World
  16 [% schema.get_tables %]
  17 foo:bar