use AnyEvent::Strict;
use AnyEvent;

my $w = AnyEvent->condvar();

my $critical_timer;
my $interrupt_timer;

my $in_critical = 0;

critical();
interrupt();

$w->recv();

sub critical {
    print "critical start\n";

    $in_critical = 1;

    $critical_timer = AnyEvent->timer (
        after => 1,
        cb    => sub {
            print "critical done\n";
            $in_critical = 0;
            critical();
        });
}

sub interrupt {
    print "interrupt start\n";

    if( $in_critical ) {
        print "D'oh!!! interrupt while in_critical\n";
    }

    $interrupt_timer = AnyEvent->timer (
        after => 1,
        cb    => sub {
            print "interrupt done\n";
            interrupt();
        });
}