1 ## name passes by assigning error variable
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';
10 #-----------------------------------------------------------------------------
12 ## name passes by "or die"
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';
20 #-----------------------------------------------------------------------------
22 ## name passes by "|| die"
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';
30 #-----------------------------------------------------------------------------
32 ## name passes by "unless"
36 die unless open( $filehandle, $mode, $filename );
37 die unless open $filehandle, $mode, $filename;
39 croak unless open( $filehandle, $mode, $filename );
40 croak unless open $filehandle, $mode, $filename;
42 #-----------------------------------------------------------------------------
44 ## name passes by "if not"
48 die if not open( $filehandle, $mode, $filename );
49 die if not open $filehandle, $mode, $filename;
51 croak if not open( $filehandle, $mode, $filename );
52 croak if not open $filehandle, $mode, $filename;
54 die if !open( $filehandle, $mode, $filename );
55 die if !open $filehandle, $mode, $filename;
57 croak if !open( $filehandle, $mode, $filename );
58 croak if !open $filehandle, $mode, $filename;
60 #-----------------------------------------------------------------------------
62 ## name passes with "if" statement
66 if ( open( $filehandle, $mode, $filename ) ) { dosomething(); };
68 #-----------------------------------------------------------------------------
70 ## name Basic failure with parens
74 open( $filehandle, $mode, $filename );
75 open( $filehandle, $filename );
77 #-----------------------------------------------------------------------------
79 ## name Basic failure no parens
83 open $filehandle, $mode, $filename;
84 open $filehandle, $filename;
86 #-----------------------------------------------------------------------------
93 open $filehandle, $filename;
95 #-----------------------------------------------------------------------------
102 open $filehandle, $filename;
104 #-----------------------------------------------------------------------------
111 open $filehandle, $filename;
113 #-----------------------------------------------------------------------------
115 ## name Fatal::Exception on
119 use Fatal::Exception 'Exception' => qw(open);
120 open $filehandle, $filename;
122 #-----------------------------------------------------------------------------
129 open $filehandle, $filename;
131 #-----------------------------------------------------------------------------
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 $
139 ##############################################################################
143 # cperl-indent-level: 4
145 # indent-tabs-mode: nil
146 # c-indentation-style: bsd
148 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :