my %const = map  { s/\s+//; $_ }
            map  { split /\s*=>\s*/ }  
            grep { /=>/ }              
            map  { split /\n/ } << '=cut';

=pod

This module uses the following constants:
										
	bang_eth => 1                       
	biff     => 2
	krunch   => 3

=cut

##</code><code>##

$VERSION = ( <<'=cut' =~ /\b\d+\.\d+\b/ );

=head1 VERSION

This document describes Some::Module 0.1

=cut

##</code><code>##

$VERSION = ( <<'=cut' =~ /\b\d+\.\d+\b/ );

##</code><code>##

eval "package Some::Module; $_" for grep m/ = /, split /\n/, <<'=cut';

=head1 VERSION

=for fooling makemaker
=cut-feigned

This document describes Some::Module,
$VERSION = 0.1

=cut

##</code><code>##

$ perldoc ./Some/Module.pm | grep VERSION
       This document describes Some::Module, $VERSION = 0.1
$ perl -MSome::Module \
       -le'print Some::Module->VERSION'
0.1
$ perl -MExtUtils::MakeMaker \
       -le'print MM->parse_version(shift)' Some/Module.pm
0.1