lib/perl5db/t/test-l-statement-2

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 sub fact {
   7     my $n = shift;
   8     if ($n > 1) {
   9         return $n * fact($n - 1);
  10     } else {
  11         return 1;
  12     }
  13 }
  14
  15 sub bar {
  16     print "One\n";
  17     print "Two\n";
  18     print "Three\n";
  19
  20     return;
  21 }
  22
  23 fact(5);
  24 bar();