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

   1 ## name passes by assigning error variable
   2 ## failures 0
   3 ## cut
   4
   5 my $error = open( $filehandle, $mode, $filename );
   6 my $error = open  $filehandle, $mode, $filename;
   7 my $error = open  OPEN, $open, 'open';
   8 my $error = open  OR, $or, 'or';
   9
  10 #-----------------------------------------------------------------------------
  11
  12 ## name passes by "or die"
  13 ## failures 0
  14 ## cut
  15
  16 open  $filehandle, $mode, $filename   or die 'could not open';
  17 open( $filehandle, $mode, $filename ) or die 'could not open';
  18 open( $filehandle, $mode, $filename ) or croak 'could not open';
  19
  20 #-----------------------------------------------------------------------------
  21
  22 ## name passes by "|| die"
  23 ## failures 0
  24 ## cut
  25
  26 open  $filehandle, $mode, $filename   or die 'could not open';
  27 open( $filehandle, $mode, $filename ) || die 'could not open';
  28 open( $filehandle, $mode, $filename ) || croak 'could not open';
  29
  30 #-----------------------------------------------------------------------------
  31
  32 ## name passes by "unless"
  33 ## failures 0
  34 ## cut
  35
  36 die unless open( $filehandle, $mode, $filename );
  37 die unless open  $filehandle, $mode, $filename;
  38
  39 croak unless open( $filehandle, $mode, $filename );
  40 croak unless open  $filehandle, $mode, $filename;
  41
  42 #-----------------------------------------------------------------------------
  43
  44 ## name passes by "if not"
  45 ## failures 0
  46 ## cut
  47
  48 die if not open( $filehandle, $mode, $filename );
  49 die if not open  $filehandle, $mode, $filename;
  50
  51 croak if not open( $filehandle, $mode, $filename );
  52 croak if not open  $filehandle, $mode, $filename;
  53
  54 die if !open( $filehandle, $mode, $filename );
  55 die if !open  $filehandle, $mode, $filename;
  56
  57 croak if !open( $filehandle, $mode, $filename );
  58 croak if !open  $filehandle, $mode, $filename;
  59
  60 #-----------------------------------------------------------------------------
  61
  62 ## name passes with "if" statement
  63 ## failures 0
  64 ## cut
  65
  66 if ( open( $filehandle, $mode, $filename ) ) { dosomething(); };
  67
  68 #-----------------------------------------------------------------------------
  69
  70 ## name Basic failure with parens
  71 ## failures 2
  72 ## cut
  73
  74 open( $filehandle, $mode, $filename );
  75 open( $filehandle, $filename );
  76
  77 #-----------------------------------------------------------------------------
  78
  79 ## name Basic failure no parens
  80 ## failures 2
  81 ## cut
  82
  83 open $filehandle, $mode, $filename;
  84 open $filehandle, $filename;
  85
  86 #-----------------------------------------------------------------------------
  87
  88 ## name Fatal.pm on
  89 ## failures 0
  90 ## cut
  91
  92 use Fatal qw(open);
  93 open $filehandle, $filename;
  94
  95 #-----------------------------------------------------------------------------
  96
  97 ## name Fatal.pm on
  98 ## failures 0
  99 ## cut
 100
 101 use Fatal 'open';
 102 open $filehandle, $filename;
 103
 104 #-----------------------------------------------------------------------------
 105
 106 ## name Fatal.pm on
 107 ## failures 0
 108 ## cut
 109
 110 use Fatal ('open');
 111 open $filehandle, $filename;
 112
 113 #-----------------------------------------------------------------------------
 114
 115 ## name Fatal::Exception on
 116 ## failures 0
 117 ## cut
 118
 119 use Fatal::Exception 'Exception' => qw(open);
 120 open $filehandle, $filename;
 121
 122 #-----------------------------------------------------------------------------
 123
 124 ## name Fatal.pm off
 125 ## failures 1
 126 ## cut
 127
 128 use Fatal qw(close);
 129 open $filehandle, $filename;
 130
 131 #-----------------------------------------------------------------------------
 132
 133
 134 ##############################################################################
 135 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/InputOutput/RequireCheckedOpen.run $
 136 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
 137 #   $Author: clonezone $
 138 # $Revision: 2187 $
 139 ##############################################################################
 140
 141 # Local Variables:
 142 #   mode: cperl
 143 #   cperl-indent-level: 4
 144 #   fill-column: 78
 145 #   indent-tabs-mode: nil
 146 #   c-indentation-style: bsd
 147 # End:
 148 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :