use Moo::_strictures;
use POSIX ();
my $exit_value = shift;
BEGIN {
package Bar;
use Moo;
sub DEMOLISH {
my ($self, $gd) = @_;
if ($gd) {
POSIX::_exit($exit_value);
}
}
}
our $bar = Bar->new;
use Moo::_strictures;
use POSIX ();
my $exit_value = shift;
BEGIN {
package Bar;
use Moo;
sub DEMOLISH {
my ($self, $gd) = @_;
if ($gd) {
POSIX::_exit($exit_value);
}
}
}
our $bar = Bar->new;