Searched defs:Switch (Results 1 - 2 of 2) sorted by relevance
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/ |
| H A D | Switch.pm | 1 package CGI::Switch;
12 CGI::Switch - Backward compatibility module for defunct CGI::Switch
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
| H A D | Switch.pm | 1 package Switch; package
48 local $Switch::file = (caller)[1];
95 if ($source =~ m/(\G\s*use\s+Switch\b)/gc)
97 $text .= q{use Switch 'noimport'};
128 die "Bad $keyword statement (problem in the parentheses?) near $Switch::file line ", line(substr($source,0,pos $source),$line), "\n";
138 die "Bad $keyword statement (problem in the code block?) near $Switch::file line ", line(substr($source,0, pos $source), $line), "\n";
141 $code =~ s/{/{ local \$::_S_W_I_T_C_H; Switch::switch $arg;/;
152 : "if (Switch::case");
195 die "Bad $keyword statement (invalid $keyword value?) near $Switch::file line ", line(substr($source,0,pos $source), $line), "\n";
198 die "Missing opening brace or semi-colon after 'when' value near $Switch
[all...] |
Completed in 19 milliseconds