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

   1 ## name lvalue
   2 ## failures 1
   3 ## cut
   4
   5 substr( $foo, 2, 1 ) = 'XYZ';
   6
   7 #-----------------------------------------------------------------------------
   8
   9 ## name 4 arg substr
  10 ## failures 0
  11 ## cut
  12
  13 substr $foo, 2, 1, 'XYZ';
  14
  15 #-----------------------------------------------------------------------------
  16
  17 ## name rvalue
  18 ## failures 0
  19 ## cut
  20
  21 $bar = substr( $foo, 2, 1 );
  22
  23 #-----------------------------------------------------------------------------
  24
  25 ## name hash rvalue
  26 ## failures 0
  27 ## cut
  28
  29 %bar = ( foobar => substr( $foo, 2, 1 ) );
  30
  31 #-----------------------------------------------------------------------------
  32
  33 ## name substr as word
  34 ## failures 0
  35 ## cut
  36
  37 $foo{substr};
  38
  39 #-----------------------------------------------------------------------------
  40
  41 ##############################################################################
  42 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/BuiltinFunctions/ProhibitLvalueSubstr.run $
  43 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
  44 #   $Author: clonezone $
  45 # $Revision: 2187 $
  46 ##############################################################################
  47
  48 # Local Variables:
  49 #   mode: cperl
  50 #   cperl-indent-level: 4
  51 #   fill-column: 78
  52 #   indent-tabs-mode: nil
  53 #   c-indentation-style: bsd
  54 # End:
  55 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :