git.maemo.org Git - pkg-perl/blob - deb-src/libperl-critic-perl/libperl-critic-perl-1.088/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 ## cut
  22
  23 @files = (<*.pl>, <*.pm>);
  24
  25 #-----------------------------------------------------------------------------
  26
  27 ## name I/O
  28 ## failures 0
  29 ## cut
  30
  31 while (<$fh>) {
  32     print $_;
  33 }
  34
  35 #-----------------------------------------------------------------------------
  36
  37 ##############################################################################
  38 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/BuiltinFunctions/RequireGlobFunction.run $
  39 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
  40 #   $Author: clonezone $
  41 # $Revision: 2187 $
  42 ##############################################################################
  43
  44 # Local Variables:
  45 #   mode: cperl
  46 #   cperl-indent-level: 4
  47 #   fill-column: 78
  48 #   indent-tabs-mode: nil
  49 #   c-indentation-style: bsd
  50 # End:
  51 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :