On Sat, 2 Oct 2004 grazer@xxxxxxxxxxxx wrote:
>
>
> I have been having some trouble with a module I am working on that requires
> HTML::Template.
>
> I am trying to use the __DATA__ section of the module as a default template to
> fall back on if one is not supplied to my constructor.
>
> Here is a simple script that illustrates the issue:
>
> [ken@darkstar DBWebForm]$ cat Foo.pm
> #!/usr/bin/perl
> use strict;
> use warnings;
> Foo->run();
> package Foo;
> use HTML::Template;
> sub run{
> my @html = <DATA>;
> my $template = HTML::Template->new(arrayref => \@html,
> die_on_bad_params=>1, strict=>1);
> $template->param(VALUE=>'xx');
> print $template->output;
> }
>
> 1;
> __DATA__
> <html>
> <head>
> </head>
> <body>
> <TMPL_VAR NAME=VALUE>
> </body>
> </html>
> [ken@darkstar DBWebForm]$ ./Foo.pm
> <html>
> <head>
> </head>
> <body>
> xx
> </body>
> </html>
> [ken@darkstar DBWebForm]$ perl -MFoo
> HTML::Template->new() : Syntax error in <TMPL_*> tag at
> /fake/path/for/non/file/template : 5. at
> /usr/lib/perl5/site_perl/5.8.0/HTML/Template.pm line 2288, <DATA> line 7.
> Compilation failed in require, <DATA> line 7.
> BEGIN failed--compilation aborted, <DATA> line 7.
>
>
> Anyone ideas on what is going on? Any suggestions welcome.
>
> Thanks in advance,
> -Ken
FWIW, I don't get any errors when I run that (perl, v5.6.1).
--Brad
-------------------------------------------------------
This SF.net email is sponsored by: IT Product Guide on ITManagersJournal
Use IT products in your business? Tell us what you think of them. Give us
Your Opinions, Get Free ThinkGeek Gift Certificates! Click to find out more
http://productguide.itmanagersjournal.com/guidepromo.tmpl
|
