1package Foo::Valid; 2use base qw(Foo); 3use Class::Trigger qw(before_foo after_foo); 4 5sub bar { 6 my $self = shift; 7 $self->call_trigger('invalid'); 8} 9 101; 11 12