3 use Test::More tests => 5;
4 use Devel::Declare::MethodInstaller::Simple;
7 Devel::Declare::MethodInstaller::Simple->install_methodhandler(
14 no warnings 'redefine';
15 Devel::Declare::MethodInstaller::Simple->install_methodhandler(
16 name => 'method_quiet',
21 ok(!main->can('foo'), 'foo() not installed yet');
27 ok(main->can('foo'), 'foo() installed at runtime');
30 $SIG{__WARN__} = sub { push @warnings, $_[0] };
36 is scalar(@warnings), 1;
37 like $warnings[0], qr/redefined/;
43 is_deeply \@warnings, [];