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 = ();