git.maemo.org Git - dh-make-perl/blob - dev/arm/libperl-critic-perl/libperl-critic-perl-1.088/t/InputOutput/ProhibitExplicitStdin.run

   1 ##############################################################################
   2 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/InputOutput/ProhibitExplicitStdin.run $
   3 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
   4 #   $Author: clonezone $
   5 # $Revision: 2187 $
   6 ##############################################################################
   7
   8 ## name basic passes
   9 ## failures 0
  10 ## cut
  11
  12 $foo = 'STDIN';
  13 my $STDIN = 1;
  14 close STDIN;
  15 while (<>) {
  16   print;
  17 }
  18 while (<FOO>) {
  19   print;
  20 }
  21 while (<$fh>) {
  22   print;
  23 }
  24
  25 #-----------------------------------------------------------------------------
  26
  27 ## name basic failures
  28 ## failures 3
  29 ## cut
  30
  31 $answer = <STDIN>;
  32 while (<STDIN>) {
  33   print;
  34 }
  35 if (<STDIN> =~ /y/) {
  36   remove 'tmp.txt';
  37 }
  38
  39 #-----------------------------------------------------------------------------
  40
  41 ## name ppi failures
  42 ## failures 4
  43 ## cut
  44
  45 $content = join '', <STDIN>;
  46 $content = join('', <STDIN>);
  47 $content = join $var, <STDIN>;
  48 $content = join($var, <STDIN>);
  49
  50 #-----------------------------------------------------------------------------
  51
  52 # Local Variables:
  53 #   mode: cperl
  54 #   cperl-indent-level: 4
  55 #   fill-column: 78
  56 #   indent-tabs-mode: nil
  57 #   c-indentation-style: bsd
  58 # End:
  59 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :