use strict;
use warnings;
use Test::More;
our $i;
BEGIN { $i = 0 };
sub method { }
BEGIN {
require Devel::Declare;
Devel::Declare->setup_for(
__PACKAGE__,
{ "method" => { const => sub { $i++ } } },
);
}
{
package Foo;
sub method { }
}
Foo->method;
BEGIN { is($i, 0) }
my @foo = (
method
=>
123
);
BEGIN { is($i, 0) }
is_deeply(\@foo, ['method', '123']);
done_testing;