Select Code to Download

my %const = map  { s/\s+//; $_ }
            map  { split /\s*=>\s*/ }  
...
    krunch   => 3

=cut

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

...
This document describes Some::Module 0.1

=cut

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

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

...
$VERSION = 0.1

=cut

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