Merge branch 'sb/string-list-remove-unused' into maint
[git] / t / t4018 / perl-skip-sub-in-pod
1 =head1 NAME
2
3 Beer - subroutine to output fragment of a drinking song
4
5 =head1 SYNOPSIS_RIGHT
6
7         use Beer qw(round finalround);
8
9         sub song {
10                 for (my $i = 99; $i > 0; $i--) {
11                         round $i;
12                 }
13                 finalround;
14         }
15
16         ChangeMe;
17
18 =cut