vcs.maemo.org Git - dh-make-perl/blob - dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/Modules/RequireVersionVar.run

   1 ##############################################################################
   2 #     $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/Modules/RequireVersionVar.run $
   3 #    $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
   4 #   $Author: clonezone $
   5 # $Revision: 2187 $
   6 ##############################################################################
   7
   8
   9 ## name No code
  10 ## failures 1
  11 ## cut
  12 #Nothing!
  13
  14 #-----------------------------------------------------------------------------
  15
  16 ## name basic pass
  17 ## failures 0
  18 ## cut
  19 our $VERSION = 1.0;
  20
  21 #-----------------------------------------------------------------------------
  22
  23 ## name basic pass #2
  24 ## failures 0
  25 ## cut
  26 our ($VERSION) = 1.0;
  27
  28 #-----------------------------------------------------------------------------
  29
  30 ## name basic pass #3
  31 ## failures 0
  32 ## cut
  33 $Package::VERSION = 1.0;
  34
  35 #-----------------------------------------------------------------------------
  36
  37 ## name basic pass #4
  38 ## failures 0
  39 ## cut
  40 use vars '$VERSION';
  41
  42 #-----------------------------------------------------------------------------
  43
  44 ## name basic pass #5
  45 ## failures 0
  46 ## cut
  47 use vars qw($VERSION);
  48
  49 #-----------------------------------------------------------------------------
  50
  51 ## name fail with lexical
  52 ## failures 1
  53 ## cut
  54 my $VERSION;
  55
  56 #-----------------------------------------------------------------------------
  57
  58 ## name fail with wrong variable
  59 ## failures 1
  60 ## cut
  61 our $Version;
  62
  63 #-----------------------------------------------------------------------------
  64
  65 ## name pass with "no critic" on
  66 ## TODO "no critic" doesn't work at the document level
  67 ## failures 0
  68 ## cut
  69
  70 #!anything
  71 ## no critic (RequireVersionVar)
  72
  73 #-----------------------------------------------------------------------------
  74
  75 ## name Readonly VERSION
  76 ## failures 0
  77 ## cut
  78
  79 Readonly our $VERSION = 1.0;
  80
  81 #-----------------------------------------------------------------------------
  82
  83 ## name Readonly::Scalar VERSION
  84 ## failures 0
  85 ## cut
  86
  87 Readonly::Scalar our $VERSION = 1.0;
  88
  89 #-----------------------------------------------------------------------------
  90
  91 ## name Readonly::Scalar VERSION
  92 ## failures 1
  93 ## cut
  94
  95 Readonly::Scalar my $VERSION = 1.0;  #Note this is lexical
  96
  97 ##############################################################################
  98 # Local Variables:
  99 #   mode: cperl
 100 #   cperl-indent-level: 4
 101 #   fill-column: 78
 102 #   indent-tabs-mode: nil
 103 #   c-indentation-style: bsd
 104 # End:
 105 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :