mirror of
https://github.com/git/git.git
synced 2024-11-15 13:43:45 +01:00
19 lines
225 B
Text
19 lines
225 B
Text
|
=head1 NAME
|
||
|
|
||
|
Beer - subroutine to output fragment of a drinking song
|
||
|
|
||
|
=head1 SYNOPSIS_RIGHT
|
||
|
|
||
|
use Beer qw(round finalround);
|
||
|
|
||
|
sub song {
|
||
|
for (my $i = 99; $i > 0; $i--) {
|
||
|
round $i;
|
||
|
}
|
||
|
finalround;
|
||
|
}
|
||
|
|
||
|
ChangeMe;
|
||
|
|
||
|
=cut
|