package AHappli::Plugins::Foo;

use strict;

use base qw(AHappli::Plugins);

sub start : Init({value => 'Foo'}) {
    print "foo init\n";
    return 'foo return';
}

sub display : Print {
    my $self = shift;
    my $c = shift;
    print "---------------------------------------------\n";
    print "AHappli::Plugins::Foo\n";
    print 'init value: ' . $self->{data}->{value} . "\n";
    print 'init return: ' . $self->{val} . "\n";
    print "Server message: $c\n";
    print "=============================================\n";
}

sub last : End {
    print "AHappli::Plugins::Foo End\n";
}
1;