git.maemo.org Git - pkg-perl/blob - deb-src/libperl-critic-perl/libperl-critic-perl-1.088/t/InputOutput/ProhibitBarewordFileHandles.run

   1 ## name standard filehandles are OK
   2 ## failures 0
   3 ## cut
   4
   5 open(STDIN, '<', '/dev/null') or die;
   6 open(STDOUT, '>', '/dev/null') or die;
   7 open(STDERR, '>', '/dev/null') or die;
   8
   9 #-----------------------------------------------------------------------------
  10
  11 ## name basic failures
  12 ## failures 5
  13 ## cut
  14
  15 open FH, '>', $some_file;
  16 open FH, '>', $some_file or die;
  17 open(FH, '>', $some_file);
  18 open(FH, '>', $some_file) or die;
  19 open(STDERROR, '>', '/dev/null') or die;
  20
  21 #-----------------------------------------------------------------------------
  22
  23 ## name basic passes
  24 ## failures 0
  25 ## cut
  26 open $fh, '>', $some_file;
  27 open $fh, '>', $some_file or die;
  28 open($fh, '>', $some_file);
  29 open($fh, '>', $some_file) or die;
  30
  31 open my $fh, '>', $some_file;
  32 open my $fh, '>', $some_file or die;
  33 open(my $fh, '>', $some_file);
  34 open(my $fh, '>', $some_file) or die;
  35
  36 $foo{open}; # not a function call
  37 {open}; # zero args, for Devel::Cover