Help for this page

Select Code to Download


  1. or download this
    # get the versions in context
    locate .pm | grep 'pm$' | xargs | xargs grep -C2 '$VERSION.*=' > versi
    +ons-C2
    ...
    # find the popular versions (w/ roughly canonical lines)
    perl -nle 'if(/\$VERSION.*=/) { s/.*\.pm://; s/\s+/ /g; s/\d+/1/g; pri
    +nt }' \
      versions-C2 | sort | uniq -c | sort -rn | head -n 10 | nl
    
  2. or download this
     1 1892 $VERSION = "1.1";
     2  916 our $VERSION = "1.1";
    ...
     9   56 $VERSION = "1.02_01";
    10   51 ($VERSION) = sprintf '%i.%03i', split(/\./, \# break for pm.or
    +g
        ("$Revision: 2.6$"=~/Revision:(\S+)\s/)[1]); #$Date: 2007/05/07 20
    +:33:46 $
    
  3. or download this
    ( $VERSION = q($Id: Tidy.pm,v 1.64 2007/05/08 20:01:45 perltidy Exp $)
    + ) =~ s/^.*\s+(\d+)\/(\d+)\/(\d+).*$/$1$2$3/; # all one line for Make
    +Maker
    
  4. or download this
    # SVK::* modules:
    use SVK::Version;  our $VERSION = $SVK::VERSION;
    
    # In SVK::Version itself:
    use version; our $VERSION = qv(2.0.2);
    
  5. or download this
    # 2005.082401
    $VERSION = 2005.0824_01;
    ...
    #          ^ ^^ ^^-- Incremented at will
    #          | \+----- Incremented for non-trivial changes to features
    #          \-------- Incremented for fundamental changes
    
  6. or download this
    use Our::Config (
        application => 'app-name',
        version     => (our $VERSION = '3.1'),
        config      => \$config,
    );