5 select( undef, undef, undef, 0.25 );
7 #-----------------------------------------------------------------------------
9 ## name sleep, as list w/var
13 select( undef, undef, undef, $time );
15 #-----------------------------------------------------------------------------
17 ## name sleep, as built-in
21 select undef, undef, undef, 0.25;
23 #-----------------------------------------------------------------------------
25 ## name select on read
29 select $vec, undef, undef, 0.25;
31 #-----------------------------------------------------------------------------
33 ## name select on write
37 select undef, $vec, undef, 0.25;
39 #-----------------------------------------------------------------------------
41 ## name select on error
45 select undef, undef, $vec, 0.25;
47 #-----------------------------------------------------------------------------
49 ## name select as word
55 #-----------------------------------------------------------------------------
57 ##############################################################################
58 # $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/BuiltinFunctions/ProhibitSleepViaSelect.run $
59 # $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
60 # $Author: clonezone $
62 ##############################################################################
66 # cperl-indent-level: 4
68 # indent-tabs-mode: nil
69 # c-indentation-style: bsd
71 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :