eval q{
die "ok\n";
package Hlagh;
- our $a;
+ our $thing;
{
package NotHlagh;
- our $x = @Hlagh::b;
+ our $what = @Hlagh::stuff;
}
};
is $@, "ok\n", 'stash: variables compiled fine';
is_deeply \%mg, {
- fetch => [ qw/a b/ ],
- store => [ qw/a b/ ],
+ fetch => [ qw/thing stuff/ ],
+ store => [ qw/thing stuff/ ],
}, 'stash: variables';
}