/ 
Text-Template-LocalVars-0.02
River stage one • 1 direct dependent • 1 total dependent
/ README.md

NAME

Text::Template::LocalVars - Text::Template with localized variables

SYNOPSIS

use Text::Template::LocalVars 'fill_in_string';

# store values in 'MyPkg' package
fill_in_string( $str1, hash => \%vars1, package => 'MyPkg' );

# use values from MyPkg package, but don't store any new
# ones there.
fill_in_string( $str2, hash => \%vars2, package => 'MyPkg',
                localize => 1 );

# use the variable package in the last call to a template fill
# routine in the call stack which led to this code being executed.
fill_in_string( $str, trackvarpkg => 1 );

DESCRIPTION

Text::Template::LocalVars is a subclass of Text::Template, with additional options to manage how and where template variables are stored. These come in particularly handy when template fragments themselves perform template fills, either inline or by calling other functions which do so.

(Text::Template stores template variables either in a package specified by the caller or in the caller's package. Regardless of where it comes from, for conciseness let's call that package the variable package. Likewise, invoking a template fill function or method, such as fill_in_string, fill_in_file, fill_this_in, or fill_in is called filling, or a fill. )

Text::Template::LocalVars provides the following features:

Localized Variable Packages

Localized variable packages come in handy if your template fragments perform template expansions of their own, and while they should have access to the existing values in the package, you'd prefer they not alter it.

Here's an example:

use Text::Template::LocalVars 'fill_in_string';
Text::Template::LocalVars->always_prepend
      ( q[use Text::Template::LocalVars 'fill_in_string';] );

my $tpl = q[{
       fill_in_string(
           q[boo + foo = { $boo + $foo }],
           hash    => { boo => 2 },
       );}
foo = { $foo; }
boo = { $boo; }
];

fill_in_string( $tpl, hash => { foo => 3 },
                      package => 'Foo',
                      output => \*STDOUT );

We're explicitly specifying a template variable package to ensure that we don't contaminate our environment. This outputs

boo + foo = 5
foo = 3
boo = 2

Note that the inner fill sees $foo from the top level fill, and adds $boo to its own environment as well as that of the upper level fill.

What if you don't want to pollute the upper fill's environment? You might try giving the inner fill it's own package,

my $tpl = q[{
       fill_in_string(
           q[boo + foo = { $boo + $foo }],
           hash    => { boo => 2 },
           package => 'Boo',
       );}
foo = { $foo; }
boo = { $boo; }
];

But then it has no access to the Foo package, so you get this:

boo + foo = 2
foo = 3
boo =

Text::Template::LocalVars gives you the best of both worlds. If you pass the localize option, the fill routine gets a copy of the parent fill's environment (or of the specified package), so it can't muck things up:

my $tpl = q[{
       fill_in_string(
           q[boo + foo = { $boo + $foo }],
           hash    => { boo => 2 },
           localize => 1,
       );}
foo = { $foo; }
boo = { $boo; }
];

results in

boo + foo = 5
foo = 3
boo =

Unlike Perl's local command, which retains the identity of a variable, Text::Template::LocalVars creates a new package and copies the contents of the original variable package into it (with some caveats, see below).

For example, without localization, the package retains its name. The following code

fill_in_string( qq[Package is { __PACKAGE__ }\n],
                package => 'Foo',
                output => \*STDOUT,
              );

outputs

Package is Foo

while

fill_in_string( qq[Package is { __PACKAGE__ }\n],
                package => 'Foo',
                localize => 1,
                output => \*STDOUT,
              );

outputs

Package is Text::Template::LocalVars::Package::Q0

Don't make assumptions about the name.

Certain constructs in packages are not easily cloned, so the cloned package isn't identical to the original. The HASH, and ARRAY values in the package are cloned using Storable::dclone; the SCALAR values are copied if they are not references, and the CODE values are copied. All other entries are ignored. This is not a perfect sandbox.

Tracking Variable Packages

If your processing becomes complicated enough that you begin nesting template fills and abstracting some into subroutines, keeping track of variable packages may get complicated. For instance

sub name {
    my ( $reverse ) = @_;

    my $tpl
      = $reverse
      ? q[ { $last },  { $first } ]
      : q[ { $first }, { $last }  ];

    fill_in_string( $tpl );
}

my $tpl = q[
      name = { name( $reverse ) }
  ];

fill_in_string(
    $tpl,
    hash => {
        first   => 'A',
        last    => 'Uther',
        reverse => 1,
    },
    package => 'Foo'
);

Here, we're implementing some complicated template logic in a subroutine, generating a new string with a template fill, and then returning that to an upper level template fragment for inclusion. All of the data required are provided to the top level template fill via the package Foo, but how does that percolate down to the name() subroutine? There are several ways to do this:

METHODS

new

See "new" in Text::Template.

compile

See "compile" in Text::Template.

fill_in

The API is the same as in "fill_in" in Text::Template, with the addition of the following options:

FUNCTIONS

fill_this_in

fill_in_string

fill_in_file

The API is the same as See "fill_this_in" in Text::Template, with the addition of the localize and trackvarpkg options (see "fill_in").

EXPORT

The following are available for export (the same as Text::Template):

BUGS

Please report any bugs or feature requests to bug-text-template-local at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Text-Template-LocalVars. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

perldoc Text::Template::LocalVars

You can also look for information at:

ACKNOWLEDGEMENTS

Mark Jason Dominus for Text::Template

AUTHOR

Diab Jerius, <djerius at cpan.org>

LICENSE AND COPYRIGHT

Copyright (C) 2013 Mark Jason Dominus

Copyright (C) 2014 Smithsonian Astrophysical Observatory

Copyright (C) 2014 Diab Jerius

Text::Template::LocalVars is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.

You should have received a copy of the GNU General Public License along with this program. If not, see http://www.gnu.org/licenses/.