Sign in
googlers
/
jrn
/
git
/
c96ecfe6a5d6167b14cac591d9fcbc73f778ed23
/
.
/
t
/
t4018
/
perl-skip-sub-in-pod
blob: e39f02462e279538e25450e7fef89ab6ccb8e7d7 [
file
] [
log
] [
blame
]
=
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