greppable6

query

\$\*W

result.md

File	Code
ELIZABETH/Env …/Env.pm6 :7:	# compile time, the $*W object is available, which refers to the nqp World
ELIZABETH/Env …/Env.pm6 :21:	my $world := $*W;
ELIZABETH/FINALIZER …/FINALIZER.pm6 :52:	$*W.add_phaser: $*LANG, 'LEAVE', { $*FINALIZER.FINALIZE }
JNTHN/Cro-HTTP …/Router.pm6 :217:	my $*WRONG-METHOD = False;
JNTHN/Cro-HTTP …/Router.pm6 :257:	elsif $*WRONG-METHOD {
JNTHN/Cro-HTTP …/Router.pm6 :540:	'" || !($*WRONG-METHOD = True) }>'
NINE/Inline-Perl5 …/Perl5.pm6 :880:	$*W.do_pragma(Any, 'precompilation', False, []);
NINE/Inline-Perl5 …/Perl5.pm6 :1062:	if ($*W) {
NINE/Inline-Perl5 …/Perl5.pm6 :1064:	$*W.add_object($block);
NINE/Inline-Perl5 …/Perl5.pm6 :1065:	my $op := $*W.add_phaser(Mu, 'INIT', $block, class :: { method cuid { (^2**128).pick }});
NINE/Inline-Perl5 …/ClassHOW.pm6 :77:	my $compiler_services = $*W.get_compiler_services(Match.new) if $*W;
NINE/Inline-Perl5 …/ClassHOW.pm6 :88:	$*W.add_object(type) if $*W;
FROGGS/p6-Slang-Tuxic …/Tuxic.pm :18:	$ident eq 'sub'|'if'|'elsif'|'while'|'until'|'for' || $*W.is_type([$ident])
FROGGS/p6-if …/if.pm :49:	$*W.HOW.mixin($*W, BetterWorld);
FROGGS/p6-overload-constant …/constant.pm :13:	when Str { $*W.add_string_constant( nqp::unbox_s($_) ) }
FROGGS/p6-overload-constant …/constant.pm :14:	when Int { $*W.add_numeric_constant($/, 'Int', nqp::unbox_i($_)) }
FROGGS/p6-overload-constant …/constant.pm :15:	when Num { $*W.add_numeric_constant($/, 'Num', nqp::unbox_n($_)) }
FROGGS/p6-overload-constant …/constant.pm :16:	when Rat { $*W.add_numeric_constant($/, 'Num', nqp::unbox_n($_.Num)) }
FROGGS/p6-overload-constant …/constant.pm :22:	!! $*W.add_numeric_constant($/, 'Int', $v.made) )
FROGGS/p6-overload-constant …/constant.pm :37:	!! $*W.add_numeric_constant($/, 'Num', +nqp::p6box_s($/.Str)) )
LLFourn/p6-CompUnit-Util …/Util.pm6 :18:	$*W.install_lexical_symbol(qblock,$name,$new);
LLFourn/p6-CompUnit-Util …/Util.pm6 :29:	$*W.install_lexical_symbol(qblock,$first,$value);
LLFourn/p6-CompUnit-Util …/Util.pm6 :157:	die "{&?ROUTINE.name} can only be called at BEGIN time" unless $*W;
LLFourn/p6-CompUnit-Util …/Util.pm6 :164:	die "{&?ROUTINE.name} can only be called at BEGIN time" unless $*W;
LLFourn/p6-CompUnit-Util …/Util.pm6 :175:	die "{&?ROUTINE.name} can only be called at BEGIN time" unless $*W;
LLFourn/p6-CompUnit-Util …/Util.pm6 :184:	die "{&?ROUTINE.name} can only be called at BEGIN time" unless $*W;
LLFourn/p6-CompUnit-Util …/Util.pm6 :192:	die "{&?ROUTINE.name} can only be called at BEGIN time" unless $*W;
LLFourn/p6-CompUnit-Util …/Util.pm6 :202:	die "{&?ROUTINE.name} can only be called at BEGIN time" unless $*W;
LLFourn/p6-CompUnit-Util …/Util.pm6 :208:	die "{&?ROUTINE.name} can only be called at BEGIN time" unless $*W;
LLFourn/p6-CompUnit-Util …/Util.pm6 :209:	set-in-QBlock($*W.cur_lexpad,$path,$value);
LLFourn/p6-CompUnit-Util …/Util.pm6 :245:	die "{&?ROUTINE.name} can only be called at BEGIN time" unless $*W;
LLFourn/p6-CompUnit-Util …/Util.pm6 :251:	die "{&?ROUTINE.name} can only be called at BEGIN time" unless $*W;
LLFourn/p6-CompUnit-Util …/Util.pm6 :252:	push-QBlock-multi($*W.cur_lexpad,$path,$multi);
LLFourn/p6-CompUnit-Util …/Util.pm6 :257:	die "{&?ROUTINE.name} can only be called at BEGIN time" unless $*W;
LLFourn/p6-CompUnit-Util …/Util.pm6 :275:	die "{&?ROUTINE.name} can only be called at BEGIN time" unless $*W;
LLFourn/p6-CompUnit-Util …/Util.pm6 :280:	die "{&?ROUTINE.name} can only be called at BEGIN time" unless $*W;
LLFourn/p6-CompUnit-Util …/Util.pm6 :281:	return get-in-QBblock($*W.cur_lexpad(),$path);
LLFourn/p6-CompUnit-Util …/Util.pm6 :285:	die "{&?ROUTINE.name} can only be called at BEGIN time" unless $*W;
LLFourn/p6-CompUnit-Util …/Util.pm6 :289:	return $*W.find_symbol(nqp::split('::',$path));
masak/html-template …/08-include.t :7:	our $*WARNINGS = 1;
niner/Inline-Python …/Python.pm6 :431:	$*W.do_pragma(Any, 'precompilation', False, []);
skids/perl6-Control-Bail …/Bail.pm6 :116:	nqp::atpos($*W.cur_lexpad(),0).push($block); # Should we? Should we pop it after?
skids/perl6-Control-Bail …/Bail.pm6 :117:	my $sig := $*W.create_signature(nqp::hash('parameter_objects', nqp::list()));
skids/perl6-Control-Bail …/Bail.pm6 :118:	my $code := $*W.stub_code_object('Block');
skids/perl6-Control-Bail …/Bail.pm6 :119:	$*W.attach_signature($code, $sig);
skids/perl6-Control-Bail …/Bail.pm6 :120:	$*W.finish_code_object($code, $block);
skids/perl6-Control-Bail …/Bail.pm6 :121:	$*W.add_phaser($/, $cond, $code);
tadzik/Grammar-BNF …/ABNF.pm :28:	my $longname := $*W.dissect_longname(lk($/,'longname'));
tadzik/Grammar-BNF …/ABNF.pm :29:	my $outer := $*W.cur_lexpad();
tadzik/Grammar-BNF …/ABNF.pm :39:	$*W.install_package($/, @name, 'our', 'abnf-grammar',
tadzik/Grammar-BNF …/BNF.pm :26:	my $longname := $*W.dissect_longname(lk($/,'longname'));
tadzik/Grammar-BNF …/BNF.pm :27:	my $outer := $*W.cur_lexpad();
tadzik/Grammar-BNF …/BNF.pm :37:	$*W.install_package($/, @name, 'our', 'bnf-grammar',
zoffixznet/perl6-Benchy …/Benchy.pm6 :4:	$*W.do_pragma(Match.new, 'MONKEY', 1, []);
zoffixznet/perl6-LN …/LN.pm6 :9:	~ " {(try $*W.current_file) // '<unknown file>'}."
zoffixznet/perl6-RakudoPrereq …/RakudoPrereq.pm6 :3:	my $where-to = try {$*W.current_file} // '<unknown file>';