## name basic passes
## failures 0
## cut

our $VERSION = 2.718;
our $VERSION = '3.14159';
our $VERSION = q{3.14159};
our $VERSION = "1.718";
our $VERSION = qq{1.718};
use version; our $VERSION = qv('1.2.3');
($VERSION) = q$REVISION: 42$ =~ m/(\d+)/;
$VERSION = "\$Foo::VERSION";
$VERSION = $main::VERSION;

#-----------------------------------------------------------------------------

## name basic failures
## failures 4
## cut

use Foo; our $VERSION = $Foo::VERSION;
use Foo; our $VERSION = $FOO_VERSION;
our $VERSION = $Foo::VERSION;
our $VERSION = "$Foo::VERSION";

#-----------------------------------------------------------------------------

## name configure 'use version' to fail.
## parms { forbid_use_version => '1' }
## failures 1
## cut

use version; our $VERSION = qv('1.2.3');

#-----------------------------------------------------------------------------

## name passes from the ProhibitMagicNumbers.run treasury.
## failures 0
## cut

(our $VERSION = q$Revision: 3503 $) =~ s/Revision //;
(our $VERSION) = '$Revision: 3503 $' =~ /([\d.]+)/;
(our $VERSION) = sprintf "%d", q$Revision: 3503 $ =~ /Revision:\s+(\S+)/;
our $VERSION : unique = "1.23";
our $VERSION : unique = '1.23';
our $VERSION = "$local_variable v1.23";
our $VERSION = "1." . sprintf "%d", q$Revision: 3503 $ =~ /: (\d+)/;
our $VERSION = "1.2.3";
our $VERSION = "1.2.3.0";
our $VERSION = "1.2.3.blah";
our $VERSION = "1.23 (liblgrp version $local_variable)";
our $VERSION = "1.23 2005-05-20";
our $VERSION = "1.23";
our $VERSION = "1.23, 2004-12-07";
our $VERSION = "1.23_blah";
our $VERSION = "1.23blah";
our $VERSION = "1.2_3";
our $VERSION = "123";
our $VERSION = "INSERT";
our $VERSION = $VERSION = (qw($Revision: 3503 $))[1];
our $VERSION = $local_variable;
our $VERSION = '$Date: 2009-08-08 16:30:30 -0700 (Sat, 08 Aug 2009) $'; $VERSION =~ s|^\$Date:\s*([0-9]{4})/([0-9]{2})/([0-9]{2})\s.*|\1.\2.\3| ;
our $VERSION = '$Revision: 3503 $' =~ /\$Revision:\s+([^\s]+)/;
our $VERSION = '$Revision: 3503 $';
our $VERSION = '-123 blah';
our $VERSION = '1.' . qw $Revision: 3503 $[1];
our $VERSION = '1.' . sprintf "%d", (qw($Revision: 3503 $))[1];
our $VERSION = '1.' . sprintf("%d", (qw($Revision: 3503 $))[1]);
our $VERSION = '1.2.3';
our $VERSION = '1.2.3.0';
our $VERSION = '1.2.3blah';
our $VERSION = '1.23';
our $VERSION = '1.23_blah';
our $VERSION = '1.23blah';
our $VERSION = '1.2_3';
our $VERSION = '1.23' || do { q $Revision: 3503 $ =~ /(\d+)/; sprintf "%4.2f", $1 / 100 };
our $VERSION = '123';
our $VERSION = ('$Revision: 3503 $' =~ /(\d+.\d+)/)[ 0];
our $VERSION = ('$Revision: 3503 $' =~ /(\d+\.\d+)/);
our $VERSION = ('$Revision: 3503 $' =~ m/(\d+)/)[0];
our $VERSION = (q$Revision: 3503 $ =~ /([\d\.]+)/);
our $VERSION = (q$Revision: 3503 $ =~ /(\d+)/g)[0];
our $VERSION = (qq$Revision: 3503 $ =~ /(\d+)/)[0];
our $VERSION = (qw$Revision: 3503 $)[-1];
our $VERSION = (qw$Revision: 3503 $)[1];
our $VERSION = (qw($Revision: 3503 $))[1];
our $VERSION = (split(/ /, '$Revision: 3503 $'))[1];
our $VERSION = (split(/ /, '$Revision: 3503 $'))[2];
our $VERSION = 1.2.3;
our $VERSION = 1.23;
our $VERSION = 1.2_3;
our $VERSION = 123;
our $VERSION = [ qw{ $Revision: 3503 $ } ]->[1];
our $VERSION = do { (my $v = q%version: 1.23 %) =~ s/.*://; sprintf("%d.%d", split(/\./, $v), 0) };
our $VERSION = do { (my $v = q%version: 123 %) =~ s/.*://; sprintf("%d.%d", split(/\./, $v), 0) };
our $VERSION = do { q $Revision: 3503 $ =~ /(\d+)/; sprintf "%4.2f", $1 / 100 };
our $VERSION = do { q$Revision: 3503 $ =~ /Revision: (\d+)/; sprintf "1.%d", $1; };
our $VERSION = do {(q$URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/distributions/Perl-Critic/t/ValuesAndExpressions/ProhibitComplexVersion.run $=~ m$.*/(?:tags|branches)/([^/ \t]+)$)[0] || "0.0"};
our $VERSION = q$0.04$;
our $VERSION = q$Revision: 3503 $;
our $VERSION = q(0.14);
our $VERSION = qv('1.2.3');
our $VERSION = qw(1.2.3);
our $VERSION = sprintf "%.02f", $local_variable/100 + 0.3;
our $VERSION = sprintf "%.3f", 123 + substr(q$Revision: 3503 $, 4)/1000;
our $VERSION = sprintf "%d.%d", '$Revision: 3503 $' =~ /(\d+)\.(\d+)/;
our $VERSION = sprintf "%d.%d", '$Revision: 3503 $' =~ /(\d+)/g;
our $VERSION = sprintf "%d.%d", '$Revision: 3503 $' =~ /(\d+)\.(\d+)/;
our $VERSION = sprintf "%d.%d", q$Revision: 3503 $ =~ /: (\d+)\.(\d+)/;
our $VERSION = sprintf "%d.%d", q$Revision: 3503 $ =~ /(\d+)/g;
our $VERSION = sprintf "%d.%d", q$Revision: 3503 $ =~ /(\d+)\.(\d+)/;
our $VERSION = sprintf "%d.%d", q$Revision: 3503 $ =~ /(\d+)\.(\d+)/g;
our $VERSION = sprintf "%d.%d", q$Revision: 3503 $ =~ /: (\d+)\.(\d+)/;
our $VERSION = sprintf "%d.%d", q$Revision: 3503 $ =~ m/ (\d+) \. (\d+) /xg;
our $VERSION = sprintf "%d.%d", q$Revision: 3503 $ ~~ m:P5:g/(\d+)/;
our $VERSION = sprintf "%d.%d%d", (split /\D+/, '$Name: beta0_1_1 $')[1..3];
# This deserves to fail, if I can make it do it.
our $VERSION = sprintf "%s.%s%s", q$Name: Rel-0_90 $ =~ /^Name: Rel-(\d+)_(\d+)(_\d+|)\s*$/, 999, "00", join "", (gmtime)[5] +1900, map {sprintf "%d", $_} (gmtime)[4]+1;
our $VERSION = sprintf "1.%d", '$Revision: 3503 $' =~ /(\d+)/;
our $VERSION = sprintf "1.%d", q$Revision: 3503 $ =~ /(\d+)/g;
our $VERSION = sprintf '%d.%d', (q$Revision: 3503 $ =~ /(\d+)\.(\d+)/);
our $VERSION = sprintf '%d.%d', q$Revision: 3503 $ =~ /(\d+)\.(\d+)/;
our $VERSION = sprintf '%d.%d', q$Revision: 3503 $ =~ /(\d+)\.(\d+)/;
our $VERSION = sprintf '%s', 'q$Revision: 3503 $' =~ /\S+\s+(\S+)\s+/ ;
our $VERSION = sprintf '%s', 'q$Revision: 3503 $' =~ /\S+\s+(\S+)\s+/ ;
our $VERSION = sprintf '%s', q$Revision: 3503 $ =~ /Revision:\s+(\S+)\s+/ ;
our $VERSION = sprintf '%s', q{$Revision: 3503 $} =~ /\S+\s+(\S+)/ ;
our $VERSION = sprintf '1.%d', (q$Revision: 3503 $ =~ /\D(\d+)\s*$/)[0] + 15;
our $VERSION = sprintf("%d", q$Id: SomeModule.pm,v 1.23 2006/04/10 22:39:38 matthew Exp $ =~ /\s(\d+)\s/);
our $VERSION = sprintf("%d", q$Id: SomeModule.pm,v 1.23 2006/04/10 22:39:39 matthew Exp $ =~ /\s(\d+)\s/);
our $VERSION = sprintf("%d.%d", "Revision: 2006.0626" =~ /(\d+)\.(\d+)/);
our $VERSION = sprintf("%d.%d", '$Name: v0_018-2006-06-15b $' =~ /(\d+)_(\d+)/, 0, 0);
our $VERSION = sprintf("%d.%d", 0, q$Revision: 3503 $ =~ /(\d+)\.(\d+)/);
our $VERSION = sprintf("%d.%d", q$Name: REL-0-13 $ =~ /(\d+)-(\d+)/, 999, 99);
our $VERSION = sprintf("%d.%d", q$Name: ical-parser-html-1-6 $ =~ /(\d+)-(\d+)/);
our $VERSION = sprintf("%d.%d", q$Revision: 3503 $ =~ /(\d+)\.(\d+)/);
our $VERSION = sprintf("%d.%d", q$Revision: 3503 $ =~ /(\d+)\.(\d+)/o);
our $VERSION = sprintf("%d.%d", q$Revision: 3503 $ =~ m/(\d+)\.(\d+)/);
our $VERSION = sprintf("%d.%d", q$Revision: 3503 $=~/(\d+)\.(\d+)/);
our $VERSION = sprintf("%d.%d", q'$Revision: 3503 $' =~ /(\d+)\.(\d+)/);
our $VERSION = sprintf("%d.%d.%d", 0, q$Revision: 3503 $ =~ /(\d+)\.(\d+)/);
our $VERSION = sprintf("1.%d", q$Revision: 3503 $ =~ / (\d+) /);
our $VERSION = sprintf("1.%d", q$Revision: 3503 $ =~ /(\d+)/);
our $VERSION = sprintf("1.2%d%d", q$Revision: 3503 $ =~ /(\d+)\.(\d+)/);
our $VERSION = sprintf('%d.%d', '$Revision: 3503 $' =~ /(\d+)\.(\d+)/);
our $VERSION = sprintf('%d.%d', q$Revision: 3503 $ =~ /(\d+)\.(\d+)/);
our $VERSION = sprintf('%d.%d', q$Revision: 3503 $ =~ /(\d+)\.(\d+)/);
our $VERSION = substr q$Revision: 3503 $, 10;
our $VERSION = substr(q$Revision: 3503 $, 10);
our $VERSION = v1.2.3.0;
our $VERSION = v1.2.3;
our $VERSION = v1.23;
our $VERSION = version->new('1.2.3');
our $VERSION = version->new(qw$Revision: 3503 $);
our ($PACKAGE, $VERSION) = ('') x 2;
our ($VERSION) = "1.23";
our ($VERSION) = '$Revision: 3503 $' =~ /\$Revision:\s+([^\s]+)/;
our ($VERSION) = '$Revision: 3503 $' =~ /\$Revision:\s+([^\s]+)/;
our ($VERSION) = '$Revision: 3503 $' =~ m{ \$Revision: \s+ (\S+) }x;
our ($VERSION) = '$Revision: 3503 $' =~ m{ \$Revision: \s+ (\S+) }xm;
our ($VERSION) = '$Revision: 3503 $'=~/(\d+(\.\d+))/;
our ($VERSION) = '$Revision: 3503 $' =~ m{ \$Revision: \s+ (\S+) }x;
our ($VERSION) = '1.23' =~ /([.,\d]+)/;
our ($VERSION) = '1.23';
our ($VERSION) = ($local_variable =~ /(\d+\.\d+)/);
our ($VERSION) = ('$Revision: 3503 $' =~ /(\d+\.\d+)/) ;
our ($VERSION) = ('$Revision: 3503 $' =~ /(\d+\.\d+)/);
our ($VERSION) = ('$Revision: 3503 $' =~ m/([\.\d]+)/) ;
our ($VERSION) = (q$Revision: 3503 $ =~ /([\d\.]+)/);
our ($VERSION) = (qq$Revision: 3503 $ =~ /(\d+)/)[0];
our ($VERSION) = 1.23;
# These deserve to fail if I can make them do it.
our ($VERSION) = q$Revision: 3503 $ =~ /Revision:\s+(\S+)/ or $VERSION = "1.23";
our ($VERSION) = q$Revision: 3503 $ =~ /Revision:\s+(\S+)/ or $VERSION = '1.23';
our ($VERSION) = q$Revision: 3503 $ =~ /[\d.]+/g;
our ($VERSION) = q$Revision: 3503 $ =~ /^Revision:\s+(\S+)/ or $VERSION = "1.23";
use version; our $VERSION = 1.23;
use version; our $VERSION = qv("1.2.3");
use version; our $VERSION = qv('1.2.3');
use version; our $VERSION = qv('1.23');
use version; our $VERSION = qv((qw$Revision: 3503 $)[1] / 1000);
use version; our $VERSION = version->new('1.23');

#-----------------------------------------------------------------------------

## name failures from the ProhibitMagicNumbers.run treasury.
## failures 11
## cut

our $VERSION = $SomeOtherModule::VERSION;
our $VERSION = ((require SomeOtherModule), $SomeOtherModule::VERSION)[1];
our $VERSION = SomeOtherModule::RCSVersion('$Revision: 3503 $');
our $VERSION = SomeOtherModule::VERSION;
our $VERSION = do { require mod_perl2; $mod_perl2::VERSION };
our $VERSION = eval { require version; version::qv((qw$Revision: 3503 $)[1] / 1000) };
our ($VERSION) = $SomeOtherModule::VERSION;
# This deserves to fail, if I can make it do it.
# our $VERSION = sprintf "%s.%s%s", q$Name: Rel-0_90 $ =~ /^Name: Rel-(\d+)_(\d+)(_\d+|)\s*$/, 999, "00", join "", (gmtime)[5] +1900, map {sprintf "%d", $_} (gmtime)[4]+1;
# These deserve to fail if I can make them do it.
# our ($VERSION) = q$Revision: 3503 $ =~ /Revision:\s+(\S+)/ or $VERSION = "1.23";
# our ($VERSION) = q$Revision: 3503 $ =~ /Revision:\s+(\S+)/ or $VERSION = '1.23';
# our ($VERSION) = q$Revision: 3503 $ =~ /[\d.]+/g;
# our ($VERSION) = q$Revision: 3503 $ =~ /^Revision:\s+(\S+)/ or $VERSION = "1.23";
require SomeOtherModule; our $VERSION = $SomeOtherModule::VERSION;
use SomeOtherModule; our $VERSION = $SomeOtherModule::VERSION;
use SomeOtherModule; our $VERSION = SomeOtherModule::VERSION;
use base 'SomeOtherModule'; our $VERSION = $SomeOtherModule::VERSION;

##############################################################################
#      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/distributions/Perl-Critic/t/ValuesAndExpressions/ProhibitComplexVersion.run $
#     $Date: 2009-08-08 16:30:30 -0700 (Sat, 08 Aug 2009) $
#   $Author: clonezone $
# $Revision: 3503 $
##############################################################################

# Local Variables:
#   mode: cperl
#   cperl-indent-level: 4
#   fill-column: 78
#   indent-tabs-mode: nil
#   c-indentation-style: bsd
# End:
# ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :