my $x = 1;
#pod =head1 Foo
#pod
#pod This is mid-code!
#pod
#pod =cut
my $y = 2;
#pod =head1 Bar
#pod
#pod This is post-code!
#pod
#pod =cut
__END__
=pod
=head1 Foo
This is mid-code!
=cut
=head1 Bar
This is post-code!
=cut
my $x = 1;
#pod =head1 Foo
#pod
#pod This is mid-code!
#pod
#pod =cut
my $y = 2;
#pod =head1 Bar
#pod
#pod This is post-code!
#pod
#pod =cut
__END__
=pod
=head1 Foo
This is mid-code!
=cut
=head1 Bar
This is post-code!
=cut