use strict; use Test::More tests => 4; use lib 't/lib'; use Foo::Valid; # should be use() ok(Foo::Valid->add_trigger(before_foo => sub { })); ok(Foo::Valid->add_trigger(before_foo => sub { })); eval { Foo::Valid->add_trigger(invalid => sub { }); }; like $@, qr/invalid is not valid triggerpoint for Foo::Valid/, $@; my $foo = Foo::Valid->new; eval { $foo->bar; }; like $@, qr/invalid is not valid triggerpoint for Foo::Valid/, $@;