Login
ff86e61f29bf60956ffb48bb218723318626a167
[gknop/Perl-Critic.git] / t / BuiltinFunctions / ProhibitVoidGrep.run
1 ## name Basic passing
2 ## failures 0
3 ## cut
4
5 print grep("$foo", @list);
6 print ( grep "$foo", @list );
7 @list = ( grep "$foo", @list );
8 $aref = [ grep "$foo", @list ];
9 $href = { grep "$foo", @list };
10
11 if( grep { foo($_) } @list ) {}
12 for( grep { foo($_) } @list ) {}
13
14 #-----------------------------------------------------------------------------
15
16 ## name Basic failure
17 ## failures 7
18 ## cut
19
20 grep "$foo", @list;
21 grep("$foo", @list);
22 grep { foo($_) } @list;
23 grep({ foo($_) } @list);
24
25 if( $condition ){ grep { foo($_) } @list }
26 while( $condition ){ grep { foo($_) } @list }
27 for( @list ){ grep { foo($_) } @list }
28
29 #-----------------------------------------------------------------------------
30
31 ## name Comma operator
32 ## failures 1
33 ## TODO not handled properly
34 ## cut
35
36 $baz, grep "$foo", @list;
37
38 #-----------------------------------------------------------------------------
39
40 ## name Chained void grep
41 ## failures 1
42 ## cut
43
44 grep { spam($_) }
45   grep { foo($_) }
46     grep { bar($_) }
47       grep { baz($_) } @list;
48
49 #-----------------------------------------------------------------------------
50
51 ##############################################################################
52 #      $URL$
53 #     $Date$
54 #   $Author$
55 # $Revision$
56 ##############################################################################
57
58 # Local Variables:
59 #   mode: cperl
60 #   cperl-indent-level: 4
61 #   fill-column: 78
62 #   indent-tabs-mode: nil
63 #   c-indentation-style: bsd
64 # End:
65 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :