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

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