NAME

Template::Generate - Generate TT2 templates from data and documents

VERSION

This document describes version 0.04 of Template::Generate, released September 18, 2003.

SYNOPSIS

    use Template::Generate;

    my $obj = Template::Generate->new;
    my $template = $obj->generate(
        {
            first       => 'Autrijus',
            last        => 'Tang',
            score       => 55,
        } => "(Simon's Blog) Score: 55, Name: Autrijus Tang",
        {
            first       => 'Simon',
            last        => 'Cozens',
            score       => 61,
        } => "(Simon's Blog) Score: 61, Name: Simon Cozens",
    );

    # "(Simon's Blog) Score: [% score %], Name: [% first %] [% last %]"
    print $template;

DESCRIPTION

This module generates TT2 templates. It can take data structures and rendered documents together, and deduce templates that could have performed the transformation.

It is a companion to Template and Template::Extract; their relationship is shown below:

    Template:           ($template + $data) ==> $document   # normal
    Template::Extract:  ($document + $template) ==> $data   # tricky
    Template::Generate: ($data + $document) ==> $template   # very tricky

This module is considered experimental.

METHODS

generate($data => $document, $data => $document, ...)

This method takes any number of ($data, $document) pairs, and returns a sorted list of possible templates that can satisfy all of them. In scalar context, the template with most variables is returned.

You may set $Template::Generate::DEBUG to a true value to display generated regular expressions.

CAVEATS

Currently, the generate method only handles [% GET %] and [% FOREACH %] directives (both single-level and nested), although support for [% ... %] is planned in the future.

SEE ALSO

Template, Template::Extract

AUTHORS

Autrijus Tang <autrijus@autrijus.org>

COPYRIGHT

Copyright 2003 by Autrijus Tang <autrijus@autrijus.org>.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html