Exception handling in Perl

gistfile1.pl

use Exception::Class( "My::X::NoData" );

sub could_die {
   if ( rand > 0.5 ) { My::X::NoData->throw; }
}

sub will_die {
   []->{something};
}

eval {
   could_die();
   will_die();
};
if ( my $e = My::X::NoData->caught ) {
   print "Ha ha!";
}
elsif ($@) {
    die $@; # die at this line, not in will_die()
}