1package Foo;
2use Class::Trigger;
3
4sub new {
5    bless {}, shift;
6}
7
8sub foo {
9    my $self = shift;
10    $self->call_trigger('before_foo');
11    print "foo\n";
12    $self->call_trigger('after_foo');
13}
14
151;
16
17