-
use strict;
-
-use Test::More tests => 3;
-
-use lib 'lib';
+use warnings;
+use Test::More tests => 2;
use Devel::Declare::MethodInstaller::Simple;
-# suppress warnings
-sub Devel::Declare::MethodInstaller::Simple::parse_proto { '' }
-
BEGIN {
Devel::Declare::MethodInstaller::Simple->install_methodhandler(
name => 'method',
);
}
-is eval { foo() } , undef;
-like $@, qr/subroutine &main::foo/;
+ok(!main->can('foo'), 'foo() not installed yet');
-method foo { 1 }
+method foo { }
-is foo(), 1;
+ok(main->can('foo'), 'foo() installed at runtime');