cddl/contrib/dtracetoolkit/Code/Perl/func_slow.pl

   1 #!./perl -w
   2
   3 sub func_c {
   4     print "Function C\n";
   5     for (my $i = 0; $i < 3000000; $i++) { my $j = $i + 1; }
   6 }
   7
   8 sub func_b {
   9     print "Function B\n";
  10     for (my $i = 0; $i < 2000000; $i++) { my $j = $i + 1 ; }
  11     func_c();
  12 }
  13
  14 sub func_a {
  15     print "Function A\n";
  16     for (my $i = 0; $i < 1000000; $i++) { my $j = $i + 1; }
  17     func_b();
  18 }
  19
  20 func_a();