git.maemo.org Git - pkg-perl/blob - deb-src/libperl-critic-perl/libperl-critic-perl-1.088/t/Variables/ProhibitLocalVars.run

   1 ## name basics
   2 ## failures 3
   3 ## cut
   4
   5 local $foo = $bar;
   6 local ($foo, $bar) = ();
   7 local ($foo, %SIG);
   8
   9 #-----------------------------------------------------------------------------
  10
  11 ## name exceptions
  12 ## failures 0
  13 ## cut
  14
  15 local $/ = undef;
  16 local $| = 1;
  17 local ($/) = undef;
  18 local ($RS, $>) = ();
  19 local ($RS);
  20 local $INPUT_RECORD_SEPARATOR;
  21 local $PROGRAM_NAME;
  22 local ($EVAL_ERROR, $OS_ERROR);
  23 local $Other::Package::foo;
  24 local (@Other::Package::foo, $EVAL_ERROR);
  25 my  $var1 = 'foo';
  26 our $var2 = 'bar';
  27 local $SIG{HUP} \&handler;
  28 local $INC{$module} = $path;
  29
  30 #-----------------------------------------------------------------------------
  31
  32 ##############################################################################
  33 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/Variables/ProhibitLocalVars.run $
  34 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
  35 #   $Author: clonezone $
  36 # $Revision: 2187 $
  37 ##############################################################################
  38
  39 # Local Variables:
  40 #   mode: cperl
  41 #   cperl-indent-level: 4
  42 #   fill-column: 78
  43 #   indent-tabs-mode: nil
  44 #   c-indentation-style: bsd
  45 # End:
  46 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :