зеркало из https://github.com/microsoft/git.git
19 строки
225 B
Plaintext
19 строки
225 B
Plaintext
|
=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
|