ext/Devel/DProf/t/test1.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         foo();
  14 }
  15
  16 bar();
  17 baz();
  18 foo();