#!/usr/bin/perl
+# This is automatically generated by author/import-moose-test.pl.
+# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
+use t::lib::MooseCompat;
use strict;
use warnings;
my $bar = Bar->new;
}
-$? = 0;
-
-my $blib = $INC{'blib.pm'} ? ' -Mblib ' : '';
-my @status = `$^X $blib t/010_basics/020-global-destruction-helper.pl`;
-
-ok $status[0], 'in_global_destruction state is passed to DEMOLISH properly (true)';
-ok $status[1], 'in_global_destruction state is passed to DEMOLISH properly (true)';
-
-is $?, 0, 'exited successfully';
+ok(
+ $_,
+ 'in_global_destruction state is passed to DEMOLISH properly (true)'
+) for split //, `$^X t/010_basics/020-global-destruction-helper.pl`;
done_testing;