1 ## name passes by assigning error variable
5 my $error = close( $filehandle );
6 my $error = close $filehandle;
7 my $error = close CLOSE;
10 #-----------------------------------------------------------------------------
12 ## name passes by "or die"
16 close $filehandle or die 'could not close';
17 close ($filehandle) or die 'could not close';
18 close ($filehandle) or croak 'could not close';
20 #-----------------------------------------------------------------------------
22 ## name passes by "|| die"
26 close $filehandle || die 'could not close';
27 close ($filehandle) || die 'could not close';
28 close ($filehandle) || croak 'could not close';
30 #-----------------------------------------------------------------------------
32 ## name passes by "unless"
36 die unless close ( $filehandle );
37 die unless close $filehandle;
39 croak unless close ( $filehandle );
40 croak unless close $filehandle;
42 #-----------------------------------------------------------------------------
44 ## name passes by "if not"
48 die if not close ( $filehandle );
49 die if not close $filehandle;
51 croak if not close ( $filehandle );
52 croak if not close $filehandle;
54 die if !close ( $filehandle );
55 die if !close $filehandle;
57 croak if !close ( $filehandle );
58 croak if !close $filehandle;
60 #-----------------------------------------------------------------------------
62 ## name passes with "if" statement
66 if ( close $filehandle ) { dosomething(); };
68 #-----------------------------------------------------------------------------
70 ## name Basic failure with parens
76 #-----------------------------------------------------------------------------
78 ## name Basic failure no parens
84 #-----------------------------------------------------------------------------
93 #-----------------------------------------------------------------------------
102 #-----------------------------------------------------------------------------
111 #-----------------------------------------------------------------------------
113 ## name Fatal::Exception on
117 use Fatal::Exception 'Exception' => qw(close);
120 #-----------------------------------------------------------------------------
129 #-----------------------------------------------------------------------------
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 $
137 ##############################################################################
141 # cperl-indent-level: 4
143 # indent-tabs-mode: nil
144 # c-indentation-style: bsd
146 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :