Bar.pm   [plain text]

package MyPlugs::Bar;

use Template::Plugin;
use base qw( Template::Plugin );

sub new {
    my ($class, $context, $value) = @_;
    bless {
	VALUE => $value,
    }, $class;
}

sub output {
    my $self = shift;
    return "This is the Bar plugin, value is $self->{ VALUE }";
}

1;