Die::Alive - Make die() to not exit the Perl interpreter, but keep the die() behavior inside eval.

  use Die::Alive ;

  die("This die() won't exit!") ;
  print "And here we continue the app...\n" ;

  eval {
    die("Calling die() inside eval!");
    print "And this print won't be executed.\n" ;
  } ;

  print "ERROR: $@\n" ;

#############################################################################
## Name:        Alive.pm
## Purpose:     Die::Alive
## Author:      Graciliano M. P. 
## Modified by:
## Created:     2004-02-27
## RCS-ID:      
## Copyright:   (c) 2004 Graciliano M. P. 
## Licence:     This program is free software; you can redistribute it and/or
##              modify it under the same terms as Perl itself
#############################################################################

package Die::Alive ;
use 5.006 ;

use strict qw(vars);

use vars qw($VERSION) ;

$VERSION = '0.01' ;

sub BEGIN { *CORE::GLOBAL::die = \&DIE_2_WARN ;}

sub DIE_2_WARN {
  if ( $^S ) { CORE::die(@_) ;}
  else { warn(@_) ;}
}

#######
# END #
#######

1;


__END__