Commit | Line | Data |
---|---|---|
f5f03b78 | 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 |