Template: calling a method

water has asked for the wisdom of the Perl Monks concerning the following question:

Hi -- I'm having trouble with the Template::Toolkit syntax for calling a method in a template.

my @data = (1, 2 ,3);
my $object = Foo->new;  # object supports method 'compute'
$tt->process('template.tt', {data=>[@data], object=>$object});
[download]

In the template, I want to do this

[% FOREACH d = data %]
The datum is [% d %] and the computed result is [% object.compute(d) %
+]
[% END %]
[download]

but [% object.compute(d) %] generates nothing. Can any TT gurus please advise?

Thank you for the help.

water

Comment on Template: calling a method Select or Download Code

Replies are listed 'Best First'.
Re: Template: calling a method by lachoy (Parson) on Mar 23, 2004 at 17:11 UTC
Something else must be going on -- are you sure that package 'Foo' is included and 'compute()' is getting called? Are you sure that 'process()' is working properly (check return value). Here's an example that works for me, just copy them both into the same directory and run the first one: `#!/usr/bin/perl use strict; use Foo; use Template; my $template = Template->new(); my @data = ( 1, 2, 3 ); $template->process( \*DATA, { object => Foo->new, data => \@data }) \|\| die "Cannot process: ", $template->error(); __DATA__ [% FOREACH d = data %] The datum is [% d %] and the computed result is '[% object.compute( d ) %]' [% END %]` [download] And the Foo object: `package Foo; # save as Foo.pm sub new { my ( $class, %params ) = @_; return bless( \%params, $class ); } sub compute { my ( $self, $data ) = @_; return "compute() called with: $data"; } 1;` [download] Running this I get the expected: `$ perl test_tt_method.pl The datum is 1 and the computed result is 'compute() called with: 1' The datum is 2 and the computed result is 'compute() called with: 2' The datum is 3 and the computed result is 'compute() called with: 3'` [download] Good luck! Chris M-x auto-bs-mode	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: Template: calling a method
by lachoy (Parson) on Mar 23, 2004 at 17:11 UTC

#!/usr/bin/perl

use strict;
use Foo;
use Template;

my $template = Template->new();
my @data = ( 1, 2, 3 );
$template->process( \*DATA, { object => Foo->new,
                              data   => \@data })
    || die "Cannot process: ", $template->error();

__DATA__

[% FOREACH d = data %]
The datum is [% d %] and the computed
result is '[% object.compute( d ) %]'
[% END %]
[download]

And the Foo object:

package Foo;
# save as Foo.pm
sub new {
    my ( $class, %params ) = @_;
    return bless( \%params, $class );
}

sub compute {
    my ( $self, $data ) = @_;
    return "compute() called with: $data";
}

1;
[download]

Running this I get the expected:

$ perl test_tt_method.pl

The datum is 1 and the computed
result is 'compute() called with: 1'

The datum is 2 and the computed
result is 'compute() called with: 2'

The datum is 3 and the computed
result is 'compute() called with: 3'
[download]

Good luck!

Chris
M-x auto-bs-mode

[reply]
[d/l]
[select]