Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Switch.pm

Lines Matching refs:source
88 	my ($source, $line) = @_;
89 	return $source unless $Perl5 && $source =~ /case|switch/
90 			   || $Perl6 && $source =~ /when|given|default/;
91 	pos $source = 0;
93 	component: while (pos $source < length $source)
95 		if ($source =~ m/(\G\s*use\s+Switch\b)/gc)
100 		my @pos = Text::Balanced::_match_quotelike(\$source,qr/\s*/,1,0);
103 			my $pre = substr($source,$pos[0],$pos[1]); # matched prefix
104 			$text .= $pre . substr($source,$pos[2],$pos[18]-$pos[2]);
107 		if ($source =~ m/\G\s*($pod_or_DATA)/gc) {
110 		@pos = Text::Balanced::_match_variable(\$source,qr/\s*/);
114 			$text .= substr($source,$pos[0],$pos[4]-$pos[0]);
118 		if ($Perl5 && $source =~ m/\G(\n*)(\s*)(switch)\b(?=\s*[(])/gc
119 		 || $Perl6 && $source =~ m/\G(\n*)(\s*)(given)\b(?=\s*[(])/gc
120 		 || $Perl6 && $source =~ m/\G(\n*)(\s*)(given)\b(.*)(?=\{)/gc)
126 				@pos = Text::Balanced::_match_codeblock(\$source,qr/\s*/,qr/\(/,qr/\)/,qr/[[{(<]/,qr/[]})>]/,undef) 
128 					die "Bad $keyword statement (problem in the parentheses?) near $Switch::file line ", line(substr($source,0,pos $source),$line), "\n";
130 				$arg = filter_blocks(substr($source,$pos[0],$pos[4]-$pos[0]),line(substr($source,0,$pos[0]),$line));
136 			@pos = Text::Balanced::_match_codeblock(\$source,qr/\s*/,qr/\{/,qr/\}/,qr/\{/,qr/\}/,undef)
138 				die "Bad $keyword statement (problem in the code block?) near $Switch::file line ", line(substr($source,0, pos $source), $line), "\n";
140 			my $code = filter_blocks(substr($source,$pos[0],$pos[4]-$pos[0]),line(substr($source,0,$pos[0]),$line));
145 		elsif ($Perl5 && $source =~ m/\G(\s*)(case\b)(?!\s*=>)/gc
146 		    || $Perl6 && $source =~ m/\G(\s*)(when\b)(?!\s*=>)/gc
147 		    || $Perl6 && $source =~ m/\G(\s*)(default\b)(?=\s*\{)/gc)
157 			elsif (@pos = Text::Balanced::_match_codeblock(\$source,qr/\s*/,qr/\{/,qr/\}/,qr/\{/,qr/\}/,undef)) {
158 				my $code = substr($source,$pos[0],$pos[4]-$pos[0]);
161 				$text .= filter_blocks($code,line(substr($source,0,$pos[0]),$line)) . ")";
163 			elsif (@pos = Text::Balanced::_match_codeblock(\$source,qr/\s*/,qr/[[(]/,qr/[])]/,qr/[[({]/,qr/[])}]/,undef)) {
164 				my $code = filter_blocks(substr($source,$pos[0],$pos[4]-$pos[0]),line(substr($source,0,$pos[0]),$line));
172 			elsif ($Perl6 && do{@pos = Text::Balanced::_match_variable(\$source,qr/\s*/)}) {
173 				my $code = filter_blocks(substr($source,$pos[0],$pos[4]-$pos[0]),line(substr($source,0,$pos[0]),$line));
179 			elsif ( @pos = Text::Balanced::_match_quotelike(\$source,qr/\s*/,1,0)) {
180 				my $code = substr($source,$pos[2],$pos[18]-$pos[2]);
181 				$code = filter_blocks($code,line(substr($source,0,$pos[2]),$line));
188 			elsif ($Perl5 && $source =~ m/\G\s*(([^\$\@{])[^\$\@{]*)(?=\s*{)/gc
189 			   ||  $Perl6 && $source =~ m/\G\s*([^;{]*)()/gc) {
190 				my $code = filter_blocks($1,line(substr($source,0,pos $source),$line));
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::file line ", line(substr($source,0,pos $source), $line), "\n"
199 				unless !$Perl6 || $source =~ m/\G(\s*)(?=;|\{)/gc;
201 			do{@pos = Text::Balanced::_match_codeblock(\$source,qr/\s*/,qr/\{/,qr/\}/,qr/\{/,qr/\}/,undef)}
203 				if ($source =~ m/\G\s*(?=([};]|\Z))/gc) {
207 				die "Bad $keyword statement (problem in the code block?) near $Switch::file line ", line(substr($source,0,pos $source),$line), "\n";
209 			my $code = filter_blocks(substr($source,$pos[0],$pos[4]-$pos[0]),line(substr($source,0,$pos[0]),$line));
217 		$source =~ m/\G(\s*(-[sm]\s+|\w+|#.*\n|\W))/gc;
863 Due to the heuristic nature of Switch.pm's source parsing, the presence
867 Due to the way source filters work in Perl, you can't use Switch inside
870 If your source file is longer then 1 million characters and you have a
873 use smaller source files.