Merge branch 'ds/in-merge-bases-many-optim-bug'

[git] / t / t4018 / perl-skip-sub-in-pod

=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