t/lib/dprof/test4_t

   1 sub foo {
   2         print "in sub foo\n";
   3         bar();
   4 }
   5
   6 sub bar {
   7         print "in sub bar\n";
   8 }
   9
  10 sub baz {
  11         print "in sub baz\n";
  12         bar();
  13         bar();
  14         bar();
  15         foo();
  16 }
  17
  18 bar();
  19
  20 eval { fork };
  21
  22 bar();
  23 baz();
  24 foo();