Select Code to Download

my $shared_memory_segment_created = 0;

...
        1;
    };
}

    eval {
        require Devel::Trace::Subs;
...
    if (! defined &trace){
        *trace = sub {};
    }

my $thing_ok = eval {
    do_something();
...
        warn $@;
    }
}