SYNOPSIS
use Data::Phrasebook;
my $q = Data::Phrasebook->new(
class => 'Plain',
loader => 'Text',
file => 'phrases.txt',
);
my $r = Data::Phrasebook->new( file => 'phrases.txt' );
# simple keyword to phrase mapping
my $phrase = $q->fetch($keyword);
# keyword to phrase mapping with parameters
$q->delimiters( qr{ \[% \s* (\w+) \s* %\] }x );
my $phrase = $q->fetch($keyword,{this => 'that'});
DESCRIPTION
This module is the fallback or default phrasebook class. It doesn't do much except act as a very simple templating facility.METHODS
fetch
Retrieves the specified "template" and substitutes any "keywords" for "values".Thus, given:
hello=Hello [% where %]!
And code:
my $text = $q->fetch( 'hello', { where => 'world' } );
Return value is:
Hello world!
The delimiters are deliberately taken from Template Toolkit.
SUPPORT
Please see the README file.AUTHOR
Original author: Iain Campbell Truskett (16.07.1979 - 29.12.2003) Maintainer: Barbie <[email protected]> since January 2004. for Miss Barbell Productions <http://www.missbarbell.co.uk>.
COPYRIGHT AND LICENSE
Copyright (C) 2003 Iain Truskett. Copyright (C) 2004-2013 Barbie for Miss Barbell Productions. This distribution is free software; you can redistribute it and/or modify it under the Artistic License v2.