summaryrefslogtreecommitdiff
path: root/t/t4018/perl-skip-sub-in-pod
diff options
context:
space:
mode:
Diffstat (limited to 't/t4018/perl-skip-sub-in-pod')
-rw-r--r--t/t4018/perl-skip-sub-in-pod18
1 files changed, 18 insertions, 0 deletions
diff --git a/t/t4018/perl-skip-sub-in-pod b/t/t4018/perl-skip-sub-in-pod
new file mode 100644
index 0000000000..e39f02462e
--- /dev/null
+++ b/t/t4018/perl-skip-sub-in-pod
@@ -0,0 +1,18 @@
+=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