ext/DProf/t/test1.pl

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