Searched defs:switch (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A DSwitch.pm15 # CATCH ATTEMPTS TO CALL case OUTSIDE THE SCOPE OF ANY switch
17 $::_S_W_I_T_C_H = sub { croak "case/when statement not in switch/given block" };
89 return $source unless $Perl5 && $source =~ /case|switch/
118 if ($Perl5 && $source =~ m/\G(\n*)(\s*)(switch)\b(?=\s*[(])/gc
141 $code =~ s/{/{ local \$::_S_W_I_T_C_H; Switch::switch $arg;/;
257 sub switch(;$) subroutine
367 croak "Cannot switch on $s_ref";
501 Switch - A switch statement for Perl
512 switch ($val) {
534 between the switch valu
[all...]

Completed in 21 milliseconds