Login
Fix a few miscellaneous self violations
[gknop/Perl-Critic.git] / t / BuiltinFunctions / RequireGlobFunction.run
1 ## name glob via <...>
2 ## failures 1
3 ## cut
4
5 @files = <*.pl>;
6
7 #-----------------------------------------------------------------------------
8
9 ## name glob via <...> in foreach
10 ## failures 1
11 ## cut
12
13 foreach my $file (<*.pl>) {
14     print $file;
15 }
16
17 #-----------------------------------------------------------------------------
18
19 ## name Multiple globs via <...>
20 ## failures 2
21 ## TODO readline parse error in PPI, fixed in PPI v1.119_04+
22 ## cut
23
24 @files = (<*.pl>, <*.pm>);
25
26 #-----------------------------------------------------------------------------
27
28 ## name I/O
29 ## failures 0
30 ## cut
31
32 while (<$fh>) {
33     print $_;
34 }
35
36 #-----------------------------------------------------------------------------
37
38 ##############################################################################
39 #      $URL$
40 #     $Date$
41 #   $Author$
42 # $Revision$
43 ##############################################################################
44
45 # Local Variables:
46 #   mode: cperl
47 #   cperl-indent-level: 4
48 #   fill-column: 78
49 #   indent-tabs-mode: nil
50 #   c-indentation-style: bsd
51 # End:
52 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab :