lib/perl5db/t/test-dieLevel-option-1

   1 use strict;
   2 use warnings;
   3
   4 sub foo
   5 {
   6     print "In foo\n";
   7     bar();
   8 }
   9
  10 sub bar
  11 {
  12     print "In baz\n";
  13     baz();
  14 }
  15
  16 sub baz
  17 {
  18     die "This program dies.";
  19 }
  20
  21 foo();
  22