use strict;
use warnings;
use Test::More (tests => 1);

my $exit_callback = sub {};

BEGIN {
*CORE::GLOBAL::exit = sub { $exit_callback->(@_) };
}

my $exit_called = 0;
$exit_callback = sub { $exit_called = 1};
exit;
is($exit_called, 1, "exit was called");