Searched defs:case (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/
145 elsif ($Perl5 && $source =~ m/\G(\s*)(case\b)(?!\s*=>)/gc
152 : "if (Switch::case");
372 sub case($) { local $SIG{__WARN__} = \&carp; subroutine
514 case 1 { print "number 1" }
515 case "a" { print "string a" }
516 case [1..10,42] { print "number in list" }
517 case (
[all...]

Completed in 20 milliseconds