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