-
use strict;
-
+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',
ok(!main->can('foo'), 'foo() not installed yet');
-method foo { }
+method foo {
+ $_[0]->method
+}
ok(main->can('foo'), 'foo() installed at runtime');