ext/Devel/DProf/t/test6.t

   1 sub foo {
   2         my $x;
   3         my $y;
   4         print "in sub foo\n";
   5         for( $x = 1; $x < 100; ++$x ){
   6                 bar();
   7                 for( $y = 1; $y < 100; ++$y ){
   8                 }
   9         }
  10 }
  11
  12 sub bar {
  13         my $x;
  14         print "in sub bar\n";
  15         for( $x = 1; $x < 100; ++$x ){
  16         }
  17         die "bar exiting";
  18 }
  19
  20 sub baz {
  21         print "in sub baz\n";
  22         eval { bar(); };
  23         eval { foo(); };
  24 }
  25
  26 eval { bar(); };
  27 baz();
  28 eval { foo(); };
  29