1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
use strict;
use Test::More tests => 3;
my @data;
package Foo;
use Class::Trigger qw(init);
sub init {
my $class = shift;
my $self = bless {},$class;
$self->call_trigger('init');
return $self;
}
__PACKAGE__->add_trigger(init => sub { push @data, 'foo' });
package Bar;
use base 'Foo';
__PACKAGE__->add_trigger(init => sub { push @data, 'bar' });
package Baz;
use base 'Bar';
__PACKAGE__->add_trigger(init => sub { push @data, 'baz' });
package main;
Foo->init;
is join(':', @data), 'foo';
@data = ();
Bar->init;
is join(':', @data), 'foo:bar';
@data = ();
Baz->init;
is join(':', @data), 'foo:bar:baz';
@data = ();
|
