.\" Automatically generated by Pod::Man 2.25 (Pod::Simple 3.16)
.\"
.\" Standard preamble:
.\" ========================================================================
.de Sp \" Vertical space (when we can't use .PP)
.if t .sp .5v
.if n .sp
..
.de Vb \" Begin verbatim text
.ft CW
.nf
.ne \\$1
..
.de Ve \" End verbatim text
.ft R
.fi
..
.\" Set up some character translations and predefined strings.  \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote.  \*(C+ will
.\" give a nicer C++.  Capital omega is used to do unbreakable dashes and
.\" therefore won't be available.  \*(C` and \*(C' expand to `' in nroff,
.\" nothing in troff, for use with C<>.
.tr \(*W-
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
.ie n \{\
.    ds -- \(*W-
.    ds PI pi
.    if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
.    if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\"  diablo 12 pitch
.    ds L" ""
.    ds R" ""
.    ds C` ""
.    ds C' ""
'br\}
.el\{\
.    ds -- \|\(em\|
.    ds PI \(*p
.    ds L" ``
.    ds R" ''
'br\}
.\"
.\" Escape single quotes in literal strings from groff's Unicode transform.
.ie \n(.g .ds Aq \(aq
.el       .ds Aq '
.\"
.\" If the F register is turned on, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
.\" entries marked with X<> in POD.  Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
.ie \nF \{\
.    de IX
.    tm Index:\\$1\t\\n%\t"\\$2"
..
.    nr % 0
.    rr F
.\}
.el \{\
.    de IX
..
.\}
.\"
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear.  Run.  Save yourself.  No user-serviceable parts.
.    \" fudge factors for nroff and troff
.if n \{\
.    ds #H 0
.    ds #V .8m
.    ds #F .3m
.    ds #[ \f1
.    ds #] \fP
.\}
.if t \{\
.    ds #H ((1u-(\\\\n(.fu%2u))*.13m)
.    ds #V .6m
.    ds #F 0
.    ds #[ \&
.    ds #] \&
.\}
.    \" simple accents for nroff and troff
.if n \{\
.    ds ' \&
.    ds ` \&
.    ds ^ \&
.    ds , \&
.    ds ~ ~
.    ds /
.\}
.if t \{\
.    ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
.    ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
.    ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
.    ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
.    ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
.    ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
.\}
.    \" troff and (daisy-wheel) nroff accents
.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
.ds ae a\h'-(\w'a'u*4/10)'e
.ds Ae A\h'-(\w'A'u*4/10)'E
.    \" corrections for vroff
.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
.    \" for low resolution devices (crt and lpr)
.if \n(.H>23 .if \n(.V>19 \
\{\
.    ds : e
.    ds 8 ss
.    ds o a
.    ds d- d\h'-1'\(ga
.    ds D- D\h'-1'\(hy
.    ds th \o'bp'
.    ds Th \o'LP'
.    ds ae ae
.    ds Ae AE
.\}
.rm #[ #] #H #V #F C
.\" ========================================================================
.\"
.IX Title "SQL::Translator::Producer::TTSchema 3pm"
.TH SQL::Translator::Producer::TTSchema 3pm "2012-01-18" "perl v5.14.2" "User Contributed Perl Documentation"
.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
.nh
.SH "NAME"
SQL::Translator::Producer::TTSchema \-
    Produces output using the Template Toolkit from a SQL schema
.SH "SYNOPSIS"
.IX Header "SYNOPSIS"
.Vb 7
\&  use SQL::Translator;
\&  my $translator     = SQL::Translator\->new(
\&      from           => \*(AqMySQL\*(Aq,
\&      filename       => \*(Aqfoo_schema.sql\*(Aq,
\&      to             => \*(AqTTSchema\*(Aq,
\&      producer_args  => {
\&          ttfile     => \*(Aqfoo_template.tt\*(Aq,  # Template file to use
\&
\&          # Extra template variables
\&          ttargs     => {
\&              author => "Mr Foo",
\&          },
\&
\&          # Template config options
\&          ttargs     => {
\&              INCLUDE_PATH => \*(Aq/foo/templates\*(Aq,
\&          },
\&      },
\&  );
\&  print $translator\->translate;
.Ve
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
Produces schema output using a given Template Tookit template.
.PP
It needs one additional producer_arg of \f(CW\*(C`ttfile\*(C'\fR which is the file
name of the template to use.  This template will be passed a variable
called \f(CW\*(C`schema\*(C'\fR, which is the \f(CW\*(C`SQL::Translator::Producer::Schema\*(C'\fR object
created by the parser. You can then use it to walk the schema via the
methods documented in that module.
.PP
Here's a brief example of what the template could look like:
.PP
.Vb 9
\&  database: [% schema.database %]
\&  tables:
\&  [% FOREACH table = schema.get_tables %]
\&      [% table.name %]
\&      ================
\&      [% FOREACH field = table.get_fields %]
\&          [% field.name %]   [% field.data_type %]([% field.size %])
\&      [% END \-%]
\&  [% END %]
.Ve
.PP
See \fIt/data/template/basic.tt\fR for a more complete example.
.PP
The template will also get the set of extra variables given as a hashref via the
\&\f(CW\*(C`tt_vars\*(C'\fR producer arg.
.PP
You can set any of the options used to initiallize the Template object by
adding a tt_conf producer_arg. See Template Toolkit docs for details of
the options.
(Note that the old style of passing this config directly in the producer args
has been deprecated).
.PP
.Vb 11
\&  $translator          = SQL::Translator\->new(
\&      to               => \*(AqTT\*(Aq,
\&      producer_args    => {
\&          ttfile       => \*(Aqfoo_template.tt\*(Aq,
\&          ttargs       => {},
\&          tt_conf      = {
\&            INCLUDE_PATH => \*(Aq/foo/templates/tt\*(Aq,
\&            INTERPOLATE  => 1,
\&          }
\&      },
\&  );
.Ve
.PP
You can use this producer to create any type of text output you like,
even using it to create your own versions of what the other producers
make.  For example, you could create a template that translates the
schema into MySQL's syntax, your own \s-1HTML\s0 documentation, your own
Class::DBI classes (or some other code) \*(-- the opportunities are
limitless!
.SS "Producer Args"
.IX Subsection "Producer Args"
.IP "ttfile" 4
.IX Item "ttfile"
The template file to generate the output with.
.IP "tt_vars" 4
.IX Item "tt_vars"
A hash ref of extra variables you want to add to the template.
.IP "tt_conf" 4
.IX Item "tt_conf"
A hash ref of configuration options to pass to the Template object's
constructor.
.SH "AUTHOR"
.IX Header "AUTHOR"
Mark Addison <grommit@users.sourceforge.net>.
.SH "TODO"
.IX Header "TODO"
\&\fBMore template vars?\fR e.g. [% tables %] as a shortcut for
[% schema.get_tables %].
.SH "SEE ALSO"
.IX Header "SEE ALSO"
SQL::Translator.