Interested in helping open source friends on HP-UX?
[git/mjg.git] / t / t4018 / perl-skip-sub-in-pod
blobe39f02462e279538e25450e7fef89ab6ccb8e7d7
1 =head1 NAME
3 Beer - subroutine to output fragment of a drinking song
5 =head1 SYNOPSIS_RIGHT
7         use Beer qw(round finalround);
9         sub song {
10                 for (my $i = 99; $i > 0; $i--) {
11                         round $i;
12                 }
13                 finalround;
14         }
16         ChangeMe;
18 =cut