1package MyPlugs::Foo; 2 3use Template::Plugin; 4use base qw( Template::Plugin ); 5 6sub new { 7 my ($class, $context, $value) = @_; 8 bless { 9 VALUE => $value, 10 }, $class; 11} 12 13sub output { 14 my $self = shift; 15 return "This is the Foo plugin, value is $self->{ VALUE }"; 16} 17 181; 19