xref: /openbsd-src/gnu/usr.bin/perl/lib/perl5db/t/test-l-statement-2 (revision 91f110e064cd7c194e59e019b83bb7496c1c84d4) 
1*91f110e0Safresh1#!/usr/bin/perl
2*91f110e0Safresh1
3*91f110e0Safresh1use strict;
4*91f110e0Safresh1use warnings;
5*91f110e0Safresh1
6*91f110e0Safresh1sub fact {
7*91f110e0Safresh1    my $n = shift;
8*91f110e0Safresh1    if ($n > 1) {
9*91f110e0Safresh1        return $n * fact($n - 1);
10*91f110e0Safresh1    } else {
11*91f110e0Safresh1        return 1;
12*91f110e0Safresh1    }
13*91f110e0Safresh1}
14*91f110e0Safresh1
15*91f110e0Safresh1sub bar {
16*91f110e0Safresh1    print "One\n";
17*91f110e0Safresh1    print "Two\n";
18*91f110e0Safresh1    print "Three\n";
19*91f110e0Safresh1
20*91f110e0Safresh1    return;
21*91f110e0Safresh1}
22*91f110e0Safresh1
23*91f110e0Safresh1fact(5);
24*91f110e0Safresh1bar();
25