Help for this page

Select Code to Download


  1. or download this
    my %const = map  { s/\s+//; $_ }
                map  { split /\s*=>\s*/ }  
    ...
        krunch   => 3
    
    =cut
    
  2. or download this
    $VERSION = ( <<'=cut' =~ /\b\d+\.\d+\b/ );
    
    ...
    This document describes Some::Module 0.1
    
    =cut
    
  3. or download this
    $VERSION = ( <<'=cut' =~ /\b\d+\.\d+\b/ );
    
  4. or download this
    eval "package Some::Module; $_" for grep m/ = /, split /\n/, <<'=cut';
    
    ...
    $VERSION = 0.1
    
    =cut
    
  5. or download this
    $ 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