1use strict; 2use Test::More tests => 4; 3 4use lib 't/lib'; 5use Foo::Valid; # should be use() 6 7ok(Foo::Valid->add_trigger(before_foo => sub { })); 8ok(Foo::Valid->add_trigger(before_foo => sub { })); 9 10eval { 11 Foo::Valid->add_trigger(invalid => sub { }); 12}; 13like $@, qr/invalid is not valid triggerpoint for Foo::Valid/, $@; 14 15my $foo = Foo::Valid->new; 16eval { 17 $foo->bar; 18}; 19like $@, qr/invalid is not valid triggerpoint for Foo::Valid/, $@; 20