Login
Fix a few miscellaneous self violations
[gknop/Perl-Critic.git] / t / BuiltinFunctions / RequireGlobFunction.run
CommitLineData
6977a06e
ES
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
13foreach my $file (<*.pl>) {
14 print $file;
15}
16
17#-----------------------------------------------------------------------------
18
19## name Multiple globs via <...>
48336a64
CD
20## failures 2
21## TODO readline parse error in PPI, fixed in PPI v1.119_04+
6977a06e
ES
22## cut
23
24@files = (<*.pl>, <*.pm>);
25
26#-----------------------------------------------------------------------------
27
28## name I/O
29## failures 0
30## cut
31
32while (<$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 :