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

   1 ## name Basic passing
   2 ## failures 0
   3 ## cut
   4
   5 eval { some_code() };
   6 eval( {some_code() } );
   7 eval();
   8 {eval}; # for Devel::Cover
   9
  10 #-----------------------------------------------------------------------------
  11
  12 ## name Basic failure
  13 ## failures 3
  14 ## cut
  15
  16 eval "$some_code";
  17 eval( "$some_code" );
  18 eval( 'sub {'.$some_code.'}' );
  19
  20 #-----------------------------------------------------------------------------
  21
  22 ## name Things that might look like an eval, but aren't
  23 ## failures 0
  24 ## cut
  25
  26 $hash1{eval} = 1;
  27 %hash2 = (eval => 1);
  28
  29 #-----------------------------------------------------------------------------
  30
  31 ##############################################################################
  32 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/BuiltinFunctions/ProhibitStringyEval.run $
  33 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
  34 #   $Author: clonezone $
  35 # $Revision: 2187 $
  36 ##############################################################################
  37
  38 # Local Variables:
  39 #   mode: cperl
  40 #   cperl-indent-level: 4
  41 #   fill-column: 78
  42 #   indent-tabs-mode: nil
  43 #   c-indentation-style: bsd
  44 # End:
  45 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :