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

   1 ## name basic
   2 ## failures 3
   3 ## cut
   4
   5 $/ = undef;
   6 $| = 1;
   7 $> = 3;
   8
   9 #-----------------------------------------------------------------------------
  10
  11 ## name English is nice
  12 ## failures 0
  13 ## cut
  14
  15 $RS = undef;
  16 $INPUT_RECORD_SEPARATOR = "\n";
  17 $OUTPUT_AUTOFLUSH = 1;
  18 print $foo, $baz;
  19
  20 #-----------------------------------------------------------------------------
  21
  22 ## name Permitted variables
  23 ## failures 0
  24 ## cut
  25
  26 $string =~ /((foo)bar)/;
  27 $foobar = $1;
  28 $foo = $2;
  29 $3;
  30 $stat = stat(_);
  31 @list = @_;
  32 my $line = $_;
  33
  34 #-----------------------------------------------------------------------------
  35
  36 ## name Configuration
  37 ## parms { allow => '$@ $!' }
  38 ## failures 0
  39 ## cut
  40
  41 print $@;
  42 print $!;
  43
  44 #-----------------------------------------------------------------------------
  45
  46 ## name Strings
  47 ## failures 4
  48 ## TODO We don't look into strings.
  49 ## cut
  50
  51 print "$+";
  52 print qq<$+>;
  53 print qx<$+>;
  54 print qr<$+>;
  55
  56 #-----------------------------------------------------------------------------
  57
  58 ##############################################################################
  59 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/Variables/ProhibitPunctuationVars.run $
  60 #     $Date: 2008-05-17 12:25:37 -0500 (Sat, 17 May 2008) $
  61 #   $Author: clonezone $
  62 # $Revision: 2345 $
  63 ##############################################################################
  64
  65 # Local Variables:
  66 #   mode: cperl
  67 #   cperl-indent-level: 4
  68 #   fill-column: 78
  69 #   indent-tabs-mode: nil
  70 #   c-indentation-style: bsd
  71 # End:
  72 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :