Author image Joost Diepenmaat


Text::PSP - Perl extension implementing a JSP-like templating system.


  use Text::PSP;
  my $psp_engine = Text::PSP->new(
        template_root   => 'templates',
        workdir => '/tmp/psp_work',
  my $template_object = $psp_engine->template('/home/joost/templates/index.psp');
  my @out = $template_object->run(@arguments);

  print @out;


The Text::PSP system consists of 3 modules: Text::PSP, Text::PSP::Parser and Text::PSP::Template. The parser creates perl modules from the input files, which are subclasses of Text::PSP::Template. Text::PSP is the module overseeing the creation and caching of the templates.

You can use the basics of the JSP system:

                my $self = shift;
                # code mode
                my @words = qw(zero one two three);
                Hello, World - this is text mode
                map { $i++ . ' = ' . $_ } @words
                That was an expression 
                # define mode
                sub method {
                        return "method called";
        <%= $self->method %>
                And insert mode again

        <%@file include="some/page.psp"%>

        and includes that search for a file upwards to the template
        <%@file find="header.psp"%>

For a complete description of the template constructs, see Text::PSP::Syntax.



        my $psp = Text::PSP->new( 
                template_root => './templates',
                workdir       => './work',

Instantiates a new Text::PSP object.



The root directory for the template files. No templates outside the template_root can be run by this Text::PSP object. This is a required parameter.


The directory in which to store the translated templates. This is a required parameter.


If this parameter is true and the workdir doesn't exist, one will be created. Default is false.


        my $template = $psp->template("index.psp");
        # or
        my $template = $psp->template("index.psp", force_rebuild => 1);

Get a template object from a template file. This will translate the template file into a Text::PSP::Template module if needed.

Optional arguments:


Always rebuild the resulting .pm file and reload it (useful for development). Normally, the .pm file is only built if the top most template file is newer than the resulting module. This can be really annoying if you're developing and are only changing some included file.


        my $template = $psp->find_template("some/path/index.psp");
        # or
        my $template = $psp->find_template("some/path/index.psp", force_rebuild => 1);

Similar to the template() method, but searches for a file starting at the specified path, working up to the template_root.

The returned template object will behave as if it really were in the specified path, regardless of the real location of the template in the file system, so for instance any include and find directives will work from that path.



This will remove the entire content of the work directory, cleaning up disk space and forcing new calls to $psp->template() to recompile the template file.


Copyright 2002 - 2005 Joost Diepenmaat, All rights reserved.

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


Christian Hansen for supplying a patch to make the force_reload option work under mod_perl.


Text::PSP::Syntax, Text::PSP::Template.