#!/usr/bin/env perl

use strict;
use warnings;

our $override_exit = 0;
BEGIN {
    no warnings 'redefine';
    *CORE::GLOBAL::exit = sub :prototype(;$) {
        if ($override_exit) {
            warn "EXIT_OVERRIDE\n";
        }
        else {
            CORE::exit($_[0] // 0);
        }
    };
}

use Pod::Usage;

{
    local $override_exit = 1;

    print "Calling pod2usage(1)\n";
    pod2usage(1);
    print "We are still here after overriding exit.\n";
}

print "calling pod2usage with -exitval => 'NOEXIT'\n";
pod2usage(-exitval => 'NOEXIT');
print "We are still here after using -exitval => 'NOEXIT'.\n";

##</code><code>##

Calling pod2usage(1)
EXIT_OVERRIDE
We are still here after overriding exit.
calling pod2usage with -exitval => 'NOEXIT'
We are still here after using -exitval => 'NOEXIT'.