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

   1 ## name Basic passes
   2 ## failures 0
   3 ## cut
   4
   5 %hash   = %{ $some_ref };
   6 @array  = @{ $some_ref };
   7 $scalar = ${ $some_ref };
   8
   9 $some_ref = \%hash;
  10 $some_ref = \@array;
  11 $some_ref = \$scalar;
  12 $some_ref = \&code;
  13
  14 #-----------------------------------------------------------------------------
  15
  16 ## name Basic failures
  17 ## failures 6
  18 ## cut
  19
  20 %hash   = %$some_ref;
  21 %array  = @$some_ref;
  22 %scalar = $$some_ref;
  23
  24 %hash   = ( %$some_ref );
  25 %array  = ( @$some_ref );
  26 %scalar = ( $$some_ref );
  27
  28 #-----------------------------------------------------------------------------
  29
  30 ## name Multiplication is not a glob
  31 # old PPI bug (fixed as of PPI v1.112): multiplication is mistakenly
  32 # interpreted as a glob.
  33 ## failures 0
  34 ## cut
  35
  36 $value = $one*$two;
  37
  38 #-----------------------------------------------------------------------------
  39
  40 ##############################################################################
  41 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/References/ProhibitDoubleSigils.run $
  42 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
  43 #   $Author: clonezone $
  44 # $Revision: 2187 $
  45 ##############################################################################
  46
  47 # Local Variables:
  48 #   mode: cperl
  49 #   cperl-indent-level: 4
  50 #   fill-column: 78
  51 #   indent-tabs-mode: nil
  52 #   c-indentation-style: bsd
  53 # End:
  54 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :