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

   1 ## name Basic
   2 ## failures 9
   3 ## cut
   4
   5 use English qw($PREMATCH);
   6 use English qw($MATCH);
   7 use English qw($POSTMATCH);
   8 $`;
   9 $&;
  10 $';
  11 $PREMATCH;
  12 $MATCH;
  13 $POSTMATCH;
  14
  15
  16 ## name Ignore case handled by RequireNoMatchVarsWithUseEnglish
  17 ## failures 0
  18 ## cut
  19
  20 use English;
  21
  22
  23 ## name no_match_vars
  24 ## failures 0
  25 ## cut
  26
  27 use English qw(-no_match_vars);
  28 use English qw($EVAL_ERROR);
  29
  30 #-----------------------------------------------------------------------------
  31
  32 ##############################################################################
  33 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/Variables/ProhibitMatchVars.run $
  34 #     $Date: 2008-05-20 22:20:33 -0500 (Tue, 20 May 2008) $
  35 #   $Author: clonezone $
  36 # $Revision: 2390 $
  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 :