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

   1 ## name Basic passing
   2 ## failures 0
   3 ## cut
   4
   5 $baz, map "$foo", @list;
   6 print map("$foo", @list);
   7 print ( map "$foo", @list );
   8 @list = ( map $foo, @list );
   9 $aref = [ map $foo, @list ];
  10 $href = { map $foo, @list };
  11
  12 if( map { foo($_) } @list ) {}
  13 for( map { foo($_) } @list ) {}
  14
  15 #-----------------------------------------------------------------------------
  16
  17 ## name Basic failure
  18 ## failures 7
  19 ## cut
  20
  21 map "$foo", @list;
  22 map("$foo", @list);
  23 map { foo($_) } @list;
  24 map({ foo($_) } @list);
  25
  26 if( $condition ){ map { foo($_) } @list }
  27 while( $condition ){ map { foo($_) } @list }
  28 for( @list ){ map { foo($_) } @list }
  29
  30 #-----------------------------------------------------------------------------
  31
  32 ## name Chained void map
  33 ## failures 1
  34 ## cut
  35
  36 map { foo($_) }
  37   map { bar($_) }
  38     map { baz($_) } @list;
  39
  40 #-----------------------------------------------------------------------------
  41
  42 ## name not builtin map
  43 ## failures 0
  44 ## cut
  45
  46 $self->map('Pennsylvania Ave, Washington, DC');
  47
  48 #-----------------------------------------------------------------------------
  49
  50 ##############################################################################
  51 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/BuiltinFunctions/ProhibitVoidMap.run $
  52 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
  53 #   $Author: clonezone $
  54 # $Revision: 2187 $
  55 ##############################################################################
  56
  57 # Local Variables:
  58 #   mode: cperl
  59 #   cperl-indent-level: 4
  60 #   fill-column: 78
  61 #   indent-tabs-mode: nil
  62 #   c-indentation-style: bsd
  63 # End:
  64 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :