#!/usr/bin/perl

use ExitIgnorer;
use strict;
use warnings;
use 5.010;

# wie kann man zeitweise exit() umleiten?
my $sub_code = sub {
    say "bin im sub_code";
    exit();
};
say "jetzt soll exit() abgefangen werden";
ignore_exit_calls();
$sub_code->();
say "jetzt soll exit() wiederhergestellt werden";
restore_exit_calls();
exit();
say "dieser Text darf nicht mehr zu sehen sein";