view release on metacpan or  search on metacpan

lib/PerlPoint/Template/TT2.pm  view on Meta::CPAN

# = PRAGMA SECTION =======================================================================

# set pragmata
use strict;

# derive ...
use base qw(PerlPoint::Template);

# declare object data fields
use fields qw(
              docdata
              tt2
             );


# = LIBRARY SECTION ======================================================================

# load modules
use Carp;
use Template;
use File::Copy;

lib/PerlPoint/Template/TT2.pm  view on Meta::CPAN

  # declarations
  my ($result)=('');

  # get options
  my $options=$me->options;

  # build template directory path
  my $tdir="$me->{generator}{cfg}{setup}{stylepath}/$options->{style}/templates";

  # generate document data structure unless done before
  unless ($me->{docdata})
   {push(@{$me->{docdata}}, $me->preprocessData($_)) for 1..$me->numberOfChapters;}

  # act action dependent: generate document pages
  $params{action}==TEMPLATE_ACTION_DOC and do
    {
     # first look if there is a template defined
     if (exists $options->{docTemplate})
       {
        # process each supplement
        foreach my $template (@{$options->{docTemplate}})
          {

lib/PerlPoint/Template/TT2.pm  view on Meta::CPAN

  # process template and write target file
  $me->{tt2}->process(
                      # template file
                      $template,

                      # the page data structure
                      {
                       options => $me->options,        # options
                       page    => $page,               # page number
                       docdata => $me->{docdata},      # document data (structure, no contents except headlines)
                       slides  => $slides,             # prepared content
                      },

                      # target file name
                      $targetfile
                     ) or die $Template::ERROR;
 }