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

   1 #!./perl -w
   2
   3 sub func_c {
   4     print "Function C\n";
   5     sleep 1;
   6 }
   7
   8 sub func_b {
   9     print "Function B\n";
  10     sleep 1;
  11     func_c();
  12 }
  13
  14 sub func_a {
  15     print "Function A\n";
  16     sleep 1;
  17     func_b();
  18 }
  19
  20 func_a();